nie lubie m$

To mial byc prosty skrypt ... wybranie nazwy pliku, archiwizacja bazy
platnika z mssql. Ten drugi mial robic to w odwrotna strone. Jednak zeby cos
dzialalo na 98 i na xp ...... to na prawde trzeba napisac execa.

Jedyny skrypt w rodzaju OpenDialog, ktory dzialal na 98 to:

 Dim vbsqdDialog1_Finished: vbsqdDialog1_Finished = False
 Dim vbsqdDialog1_UserInputData: vbsqdDialog1_UserInputData = False
 Dim vbsqdDialog1_returnValue: vbsqdDialog1_returnValue=""
 Dim vbsqdDialog1_ie
 Dim vbsqdDialog1_File1
 Function openDialog(sPath,sFilter)
  set vbsqdDialog1_ie = WScript.CreateObject("InternetExplorer.Application",
"vbsqdDialog1_IE_")
  vbsqdDialog1_ie.width = 300
  vbsqdDialog1_ie.height = 150
  vbsqdDialog1_ie.menubar = False
  vbsqdDialog1_ie.toolbar = False
  vbsqdDialog1_ie.statusbar = False
  vbsqdDialog1_ie.navigate "about:blank"
  while vbsqdDialog1_ie.Busy: wend
  vbsqdDialog1_ie.document.title=" Open Dialog Helper"
  Set vbsqdDialog1_File1 = vbsqdDialog1_ie.document.createElement("input")
  vbsqdDialog1_File1.type = "file"
  vbsqdDialog1_ie.document.body.AppendChild vbsqdDialog1_File1
  Set vbsqdDialog1_File1.onchange = GetRef("vbsqdDialog1_File_Clicked")
  Dim vbsqdDialog1_Para: Set vbsqdDialog1_Para =
vbsqdDialog1_ie.document.createElement("p")
  vbsqdDialog1_ie.document.body.AppendChild vbsqdDialog1_Para
  Dim vbsqdDialog1_Info1: Set vbsqdDialog1_Info1 =
vbsqdDialog1_ie.document.createTextNode("Close this window when Finished.")
  vbsqdDialog1_Para.AppendChild vbsqdDialog1_Info1
  vbsqdDialog1_ie.visible = true
  vbsqdDialog1_File1.click
  Do While Not vbsqdDialog1_Finished
    WScript.Sleep 50
  Loop
  OpenDialog = vbsqdDialog1_returnValue
 End Function
 Sub vbsqdDialog1_File_Clicked()
  vbsqdDialog1_Finished = True
  vbsqdDialog1_UserInputData = True
  vbsqdDialog1_returnValue = vbsqdDialog1_File1.value
  vbsqdDialog1_ie.Quit
 End Sub
 Sub vbsqdDialog1_IE_onQuit
  vbsqdDialog1_Finished = True
 End Sub

Dim strFileName, strPath, strFilter
    strPath = "C:\"
    strFilter = "Text Files|(*.txt)|All Files|(*.*)"
    sFileName = openDialog(sPath,sFilter)

no ale sorry...
Received on Wed Jan 3 13:35:06 2007