VBScript

Hallo Leute,

ich bin seit 2 tagen schon dran ein script zu schreiben welches in einem Verzeichnis alle Dateien mit der Endung ".mpk" sucht und diese in einem nicht Standard Programm (Konverter) öffnet. Am besten eine Datei nach der anderen. Aber wenn alle sofort geöffnet werden ist auch nciht schlimm. Habt ihr eine Lösung ich verzweifel schon langsam.

 

zeig uns doch erstmal deinen versuch, dann kann man dir sagen was du falsch machst.
oder erwartest du das hier jemand die komplette arbeit für dich macht ?

 

Das hab ich doch gar nicht behauptet

Hier mal der Code:

Code:

Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Quelle = "C:\"
Typ = LCase("mpk") 
For Each File In fso.GetFolder(Quelle).Files 
    If LCase(fso.GetExtensionName(File.Name)) = Typ Then 
        WshShell.Run("C:\Programme\xxx\trans304.exe File")
        End If 
Next

 

hat den keiner ne idee von euch, wie man das lösen könnte???

 

Hi!

Ersetzt mal das:

Code:

WshShell.Run("C:\Programme\xxx\trans304.exe File")

durch das

Code:

WshShell.Run("""C:\Programme\xxx\trans304.exe"" "&""""&File.Name&"""")

Gruß, /root!

 

funktoniert auch nciht.. er erzeugt dann eine neue datei die file heißt

 

Ich hab das jetzt auch mal ausprobiert und hab meinen Fehler gefunden. Es muss nicht "File.Name" heißen, sondern "File.Path".
Mir ist außerdem aufgefallen, dass dein Script nicht rekursiv arbeitet, sondern nur Dateien berücksichtigt, die sich direkt in C:\ befinden, und nicht in Unterordnern. Ist das beabsichtigt?

Gruß, /root!

 

Ne ist nicht beabsichtigt. Wie kann ich das ändern?