Navigation section
Windows 7 Scipting with Windows 7
- Thread starter Hajime
- Start date
Solution
I think i found the answer i just hope that this code works..... if you have any more suggestions feel free to reply thanks.i've used this code below:
Function ChooseFile()
Dim Result
Dim IE : Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate("about:blank")
Do Until .ReadyState = 4 : Loop
With .Document
.Write "<html><body><input id='f' type='file'></body></html>"
With .All.f
.Focus
.Click
Result = .Value
End With
End With
.Quit
End With
Set IE = Nothing
ChooseFile = Result
End Function
MsgBox ChooseFile()
just...
- Thread Author
- #2
I think i found the answer i just hope that this code works..... if you have any more suggestions feel free to reply thanks.i've used this code below:
Function ChooseFile()
Dim Result
Dim IE : Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate("about:blank")
Do Until .ReadyState = 4 : Loop
With .Document
.Write "<html><body><input id='f' type='file'></body></html>"
With .All.f
.Focus
.Click
Result = .Value
End With
End With
.Quit
End With
Set IE = Nothing
ChooseFile = Result
End Function
MsgBox ChooseFile()
just hope that this works
Similar threads
- Featured
- Article
- Featured
- Article
- Featured
- Article