Win7 VBS open file dialog box a c:\fakepath

Reklama

Win7 VBS open file dialog box a c:\fakepath

Odpovědět

1 příspěvek • Stránka 1 z 1

majko78: Nováček; Registrován: 24. dub 2006

Win7 VBS open file dialog box a c:\fakepath

Citovat

Příspěvek od majko78 » 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"

Odpovědět

1 příspěvek • Stránka 1 z 1

Zpět na „Programování a web“