0
vbs rename file, KBfile
Hallo, kann mir jemand sagen wie der Script mit "If Exsist" wenn die Datei existiert, das Umbenennen überspringt?
Gruß waldgnarf
Option Explicit
Function Main
Dim FSO, DATEI, ORDNER, NR
NR=0
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Set ORDNER=FSO.GetFolder("C:\Documents and Settings\Desktop\New")
For Each DATEI in ORDNER.Files
If DATEI.FileExists Then
Else
DATEI.Name=DATEI.Size & NR & "." & FSO.GetExtensionName(DATEI)
NR=NR+1
End If
Next
End Function
MainGruß waldgnarf
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 90869
Url: https://administrator.de/contentid/90869
Ausgedruckt am: 20.11.2024 um 11:11 Uhr
