使用VBScript進行重命名並移動日誌文件

Question

我遇到了一個正在處理的vbscript問題。 腳本重命名，然後將一些FTP日誌文件從一個文件夾移動到另一個文件夾。 該腳本正在工作，但後來我意識到我有一個名爲delete_junkfiles.log的文件，但我不希望此文件被重命名或移動，只是保留在源文件夾中。

目前腳本正在重命名並移動所有文件。 腳本也會拋出一個文件未找到錯誤，即使文件被重命名然後移動，如果可能的話，我想修復此以及....

我知道你的VBScript專家，這可能很容易，但我對vbs相當陌生，而且我無法弄清楚如何忽略delete_junkfiles.log，只是將它放在一邊。 任何幫助你的傢伙可以把我的將不勝感激。 下面是我的腳本....

Dim WshShell, FileManagement, BrowseDialogBox, SelectedFolder, OldString, NewString, FullPath, TheFolder, FileList 
Dim File, ThisFile, TheString, AlreadyRenamed, TempName, FlagName, Success, FindFlag, 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, "Select the folder containing the files you want to rename.", &H0001) 

If InStr(1, TypeName(SelectedFolder), "Folder") = 0 Then 
Wscript.Quit 
Else 
OldString = InputBox("Enter the characters in the filename that you want to replace","Rename Files") 
If OldString = "" Then Wscript.Quit 

NewString = InputBox("Enter the characters that you want to replace them with","Rename Files") 
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 


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 = FlagName 
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 

'Move the files 
For Each File in FileList 
FileManagement.MoveFile "C:\Users\lislej\Desktop\test_move\*.log", "C:\Users\lislej\Desktop\test_move_to\" 
Next 

If Success = 1 Then 
Dummy = WshShell.Popup ("Rename Files operation complete!",5,"Rename Files",64) 
Else 
Dummy = WshShell.Popup ("Rename Files operation failed! Please repeat the operation.",0,"Rename Files",16) 
End If 

Wscript.Quit 

Answer 1

看起來所示失去了一些東西的代碼是有Next沒有For。但是，文件移動的部分是完好的，這就是你應該檢查文件名跳過：

Set FileList = TheFolder.Files 
'Move the files 
For Each File in FileList 
    If InStr(File, "delete_junkfiles") = 0 Then 
     ' If "delete_junkfiles" is not find in the filename then do move file 
     File.Move "C:\Users\lislej\Desktop\test_move_to\" 
    End If 
Next 

UPDATE：

我認爲你需要更新文件列表，你改名後的文件？

Answer 2

我認爲無論是忽略了delete_junkfiles.log文件和您的文件未找到錯誤將得到解決，通過改變

'Move the files 
For Each File in FileList 
FileManagement.MoveFile "C:\Users\lislej\Desktop\test_move\*.log", "C:\Users\lislej\Desktop\test_move_to\" 
Next 

到

'Move the files 
For Each File in FileList 
    if File.Name <> "delete_junkfiles.log" then 
     FileManagement.MoveFile File.Path, "C:\Users\lislej\Desktop\test_move_to\" 
    end if 
Next 

基本上，你這樣做是通過每個文件的循環，但使用無論如何，在MoveFile()調用通配符。這可能導致文件未找到，因爲第一次迭代將移動全部與該模式匹配的文件。第二次迭代會發現沒有文件，因此錯誤。我添加了if以避免您想要忽略的文件。