Keine Lizenz für Open-Dialog

19/03/2010 - 17:25 von K. Wittrock | Report spam
Hallo NG,

bisher habe ich Dateien per Drag & Drop an meine WSH-Skripte übergeben.
Jetzt wollte ich einmal den Open-Dialog von Windows nutzen und habe
dafür geschrieben
set dialog = CreateObject("MSComDlg.CommonDialog")
Das bringt die Fehlermeldung "Keine Lizenz für die Verwendung dieser
Klasse vorhanden". Keine Ahnung, welche Lizenz hier gemeint ist. Mein
Windows (XP Home mit SP3) ist zwar nur OEM, aber legal erworben.

Ich bin wieder auf Drag & Drop umgestiegen, habe aber trotz der
eindeutigen Fehlermeldung noch eine kleine Hoffnung, den Open-Dialog
nutzen zu können. Obigen Kode habe ich nàmlich aus einem alten Buch, das
auf WSH 2.0 für Windows 2000 basiert. Vielleicht hat sich ja inzwischen
die Syntax des Befehls etwas geàndert. Für einen Hinweis wàre ich
dankbar.

Gruß

Klaus

Persönliche Antwort bitte nur an
K<ohne_Punkt_und_Komma>Wittrock<Klammeraffe>web.de
 

Lesen sie die antworten

#1 Wolfgang Badura
21/03/2010 - 14:52 | Warnen spam
Hallo Klaus!
"K. Wittrock" wrote in message
news:4ba3a601$0$6572$
set dialog = CreateObject("MSComDlg.CommonDialog")


Ich verwende

' BrowseForFile
Function BrowseForFile(pstrFilename, pstrPath, pstrFilter)
Dim objDialog, intresult

BrowseForFile = ""
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = pstrFilter
objDialog.InitialDir = pstrPath
objDialog.Flags = &H80000 + &H4 + &H8
objDialog.FileName = pstrFilename
intresult = objDialog.ShowOpen 'intresult = false wenn Dialog
gecancelt wurde
If intresult Then BrowseForFile = objDialog.FileName
Set objDialog = Nothing
End Function

Wolfgang

Ähnliche fragen