Tom's Guide | Tom's Hardware | Tom's Games
 |
 |
 |
hi,
i have written a code to launch Browse Folder dialogue box.
<HTML><HEAD>
</HEAD><BODY>
<SCRIPT LANGUAGE="VBScript">
Option Explicit
Sub Browse_OnClickOn Error Resume Next
Dim WShell
Dim sItem
Dim sPath
Set WShell = CreateObject("Shell.Application")
If IsObject(WShell) Then
MsgBox "Entry1"
End If
Set sItem = WShell.BrowseForFolder(&H0, "", &H0001,17)
If IsObject(sItem) Then
MsgBox "Entry2"
End If
If Err = 0 Then
sPath = sItem.ParentFolder.ParseName(sItem.Title).Path
Else
MsgBox "Error in Selecting Folder/File. Error Number " & Err
End If
Set WinShell = Nothing
Set sItem = Nothing
document.Just.WMPath.value = sPath
End Sub</SCRIPT>
<FORM Name="Just"><INPUT Type="Text" Name="WMPath" SIze=25>
<INPUT Type="Button" Name="Browse" value ="Browse"SIze=25>In this code i am not able create IE object to get value of slected folder from BrowseForFolder . its giving error number 70, please help me
</FORM>
</BODY>
</HTML>
 |
 |
 |
This post is quite old and has been locked from receiving new replies. Please create a new posting instead.
| Ads by Google |
