Takker på forhand
Lige nu arbejder jeg videre på den script jeg startede med. som flyttede en fil til et andet sted.
Den er nok lidt smartere nu end den var
Jeg prøver at få den til at ømdøbe nogle filer til det dato de blev oprettet i. men har stadi nogle problemer.
lige nu ømdøber den filen til det dato det er i dag(perecent day) men vil have den at ømdøbe filen til det dato filen blev oprettet i. for at få et unik filnavn.
måske der er nogen der kan hjælpe
her er koden. det er en .vbs fil
Dim WshShell, FileManagement, BrowseDialogBox, SelectedFolder, OldString, NewString, FullPath, TheFolder, FileList
Dim File, ThisFile, TheString, AlreadyRenamed, TempName, FlagName, Success, DateCreated, FindFlag, objFile, NewName, Dummy
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileManagement = WScript.CreateObject ("Scripting.FileSystemObject")
Set BrowseDialogBox = WScript.CreateObject("Shell.Application")
Set SelectedFolder = BrowseDialogBox.BrowseForFolder(0, "Vælg mappen hvor filerne du ønsker at omdøbe ligger i.", &H0001)
If InStr(1, TypeName(SelectedFolder), "Folder") = 0 Then
Wscript.Quit
Else
OldString = InputBox("Skriv navnet eller filtypen hos filen der skal omdøbes","Rename Files")
If OldString = "" Then Wscript.Quit
Startstring = InputBox("Hvad skal filerne hedde i starten. eks Spanien","Rename Files")
If Startstring = "" Then Wscript.Quit
NewString = " .Den " & Right("0" & Day(now), 2) & "-" & Right("0" & Month(now), 2) & "-" & Year(now) & ". Kl " & Right("0" & Hour(now), 2) & "-" & Right("0" & Minute(now), 2) & "-" & Right("0" & Second(now), 2) & ".jpg"
If NewString = "" Then Wscript.Quit
End If
FullPath = SelectedFolder.ParentFolder.ParseName(SelectedFolder.Title).Path
Set TheFolder = FileManagement.GetFolder(FullPath)
Set FileList = TheFolder.Files
Success = 0
For Each File in FileList
ThisFile = File.Name
TheString = InStr(ThisFile, OldString)
AlreadyRenamed = InStr(ThisFile, "%")
If (TheString <> 0) AND (AlreadyRenamed = 0) Then
Success = 1
TempName = Replace(ThisFile, OldString, NewString)
FlagName = "%" + TempName
File.Name = Startstring + NewString
End If
Next
For Each File in FileList
ThisFile = File.Name
FindFlag = InStr(ThisFile, "%")
If FindFlag <> 0 Then
NewName = Replace(ThisFile, "%", "")
File.Name = NewName
End If
Next
If Success = 1 Then
Dummy = WshShell.Popup ("Filerne er nu ømdøbet!",5,"Rename Files",64)
Else
Dummy = WshShell.Popup ("Der skete en fejl. husk at det skal være case sensitive.",0,"Rename Files",16)
End If
Wscript.Quit
takker