vbs subfolder.files

Hallo, kann mir bitte Jemand dabei Helfen.

Option Explicit
Function Main
Dim FSO, DATEI, ORDNER
Set FSO=CreateObject("Scripting.FileSystemObject")  
Set ORDNER=FSO.GetFolder("C:\New").Subfolders  

For Each DATEI in ORDNER.Files
DATEI.Name=DATEI.Size & DATEI.Name & "." & FSO.GetExtensionName(DATEI)  
Next

End Function
Main

Ich versuche die Dateien der Unterordner umzubenennen.
Habe schon sehr viel versucht aber ich weiß nun endgültig nicht weiter.

Gruß waldgnarf

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 93463

Url: https://administrator.de/contentid/93463

Ausgedruckt am: 20.11.2024 um 11:11 Uhr

2 Kommentare

Neuester Kommentar

Hallo waldgnarf!

Meintest Du das so:

Option Explicit
Function Main
Dim FSO, DATEI, ORDNER
Set FSO=CreateObject("Scripting.FileSystemObject")  
For Each ORDNER In FSO.GetFolder("C:\New").Subfolders  
    For Each DATEI in ORDNER.Files
        DATEI.Name=DATEI.Size & DATEI.Name '& "." & FSO.GetExtensionName(DATEI)  
    Next
Next
End Function
Main

Falls Du tatsächlich die Extension doppelt benötigen solltest, kannst Du das Apostroph in Zeile 7 wieder entfernen, wenn nicht, dann ab dem Apostroph den Rest der Zeile entsorgen.

Grüße
bastla

P.S.: Wozu eigentlich die "Function"? Falls überhaupt, würde ich ein "Sub" verwenden, aber eher einfach die Zeilen 2, 10 und 11 ersatzlos streichen ...