2
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
MainHabe schon sehr viel versucht aber ich weiß nun endgültig nicht weiter.
Gruß waldgnarf
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 93463
Url: https://administrator.de/contentid/93463
Printed on: April 16, 2024 at 05: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
MainGrüß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 ...
Genau das was ich brauchte, herzlichen lieben Dank =).