Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Hallo, gibt es eine Möglichkeit mit VBScript einen Dateibrowser zu öffnen und bei Auswahl einer Datei, den Pfad als Ergebnis zu liefern ? Gruß Winny

Hi,
ich habe eine Lösung nach langem suchen gefunden:


Set oShellApp= CreateObject("Shell.Application")
vsMsg= "Message"
vnBFF= 16497 'bitwise options different OS to OS
vxRoot= 17 'MyComputer Drives
Set voBrowse= _
oShellApp.BrowseForFolder(0, vsMsg, vnBFF, vxRoot)
If (InStr(LCase(Trim(TypeName(voBrowse))), "folder")=1) Then
On Error Resume Next
vsSln= _
voBrowse.ParentFolder.ParseName(voBrowse.Title).Path
If Err Then Err.Clear: vsSln= ""
On Error GoTo 0
If NOT (vsSln="") Then MsgBox vsSln
End If

• DLL mit VBScript ansprechen
• VBScript ComboBox Methoden
• Programmsteuerung mit VBScript
• VBScript und ini-Dateien
• VBSCript in Javascript integrieren