vbs subfolder.files
Hallo, kann mir bitte Jemand dabei Helfen.
Ich versuche die Dateien der Unterordner umzubenennen.
Habe schon sehr viel versucht aber ich weiß nun endgültig nicht weiter.
Gruß waldgnarf
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
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/forum/vbs-subfolder-files-93463.html
Ausgedruckt am: 23.12.2024 um 13:12 Uhr
2 Kommentare
Neuester Kommentar
Hallo waldgnarf!
Meintest Du das so:
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 ...
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
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 ...