Win7 VBS open file dialog box
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 ""
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 ""
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"
