CommonDialog mit VB Script verwenden

Mit VB Script kann auch auf das CommonDialog Objekt von Windows zugegriffen werden. Es stehen nicht alle Methoden zur Verfügung, aber zum Auswählen von Dateien reicht es allemal!

Mit VB Script kann auch auf das CommonDialog Objekt von Windows zugegriffen werden. Es stehen nicht alle Methoden zur Verfügung, aber zum Auswählen von Dateien reicht es allemal!

Hier ein Sniplet:

Set objDialog = CreateObject(„UserAccounts.CommonDialog“)
objDialog.Filter = „*.log|*.log|All Files|*.*“
objDialog.FilterIndex = 1
objDialog.InitialDir = „C:\“
intResult = objDialog.ShowOpen
If intResult = 0 Then
 wscript.Quit
End If
‚*** Der Dateiname kann dann extrahiert werden
nPos      = InstrREV(objDialog.Filename,“\“)
cFilename = mid(objDialog.Filename,nPos + 1 ,len(objDialog.Filename))

Bei Scripten gilt immer: Erst den Quellcode lesen, dann ausprobieren! 

Autor: matze

Bei Scripten gilt immer: Erst den Quellcode lesen, dann ausprobieren!