Win7 VBS open file dialog box a c:\fakepath
Napsal: pon 19. črc 2010, 21:23
Cafte, hladam sposob ako pomocou VBScriptu otvorit dialog na otvorenie suboru z lokalneho disku PC. Je s tym celkom problem, pod XP v pohode, ale na Windows Vista/7 si s tym neviem rady }koli zabezpeceniu IE8. Asi najlepsi sposob je:
----------------------
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
Browse = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
sRet = .value
End With
IE.Quit
Set IE = Nothing
msgbox sRet
---------------
lenze namiesto path da c:\fakepath\menosuboru.txt
potrebujem sa dopracovat aj k ceste k suboru a neviem ako...
marian
PS: popripade poradte nejake "3rd party components"
----------------------
On Error Resume Next
Dim Q2, sRet
Q2 = chr(34)
Browse = ""
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = False
IE.Navigate("about:blank")
Do Until IE.ReadyState = 4
Loop
IE.Document.Write "<HTML><BODY><INPUT ID=" & Q2 & "Fil" & Q2 & "Type=" & Q2 & "file" & Q2 & "></BODY></HTML>"
With IE.Document.all.Fil
.focus
.click
sRet = .value
End With
IE.Quit
Set IE = Nothing
msgbox sRet
---------------
lenze namiesto path da c:\fakepath\menosuboru.txt
potrebujem sa dopracovat aj k ceste k suboru a neviem ako...
marian
PS: popripade poradte nejake "3rd party components"