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
Please also mark the comments that contributed to the solution of the article
Content-Key: 93463
Url: https://administrator.de/contentid/93463
Printed on: April 26, 2024 at 22:04 o'clock
2 Comments
Latest comment
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 ...