home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: 25 Years Anniversary
/
CHIP_25Jahre_Jubilaeum.iso
/
downloads
/
401215
/
umbenennenFotos.vbs
Wrap
Text File
|
2003-09-09
|
1KB
|
56 lines
Option Explicit
Dim listArgs
Dim objFileSystem, objFolder, objFile
Dim szFolder, szDateCreated, szYear, szMonth, szDay
Set listArgs = WScript.Arguments
If listArgs.Count = 0 Then
szFolder = InputBox("Welcher Ordner?","Ordner auswΣhlen","C:\Daten\Alex\Fotos")
Else
szFolder = listArgs(0)
End If
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.FolderExists(szFolder) Then
Set objFolder = objFileSystem.GetFolder(szFolder)
For Each objFile In objFolder.Files
If objFile.Type = "JPEG-Bild" Then
szDateCreated = objFile.DateCreated
szYear = Year(szDateCreated)
szMonth = Month(szDateCreated)
szDay = Day(szDateCreated)
If isDate(szDateCreated) Then
szYear = Year(szDateCreated)
szMonth = Month(szDateCreated)
szDay = Day(szDateCreated)
If szMonth < 10 Then
szMonth = "0" & szMonth
End If
If szDay < 10 Then
szDay = "0" & szDay
End If
szDateCreated = szYear & szMonth & szDay
If szDateCreated <> left(objFile.Name, 8) Then
objFile.Name = szDateCreated & " " & objFile.Name
End If
End If
End If
Next
Else
MsgBox "Angegebener Ordner existiert nicht!"
End If