幫助VBScript監視文件夾的文件，然後重命名並移動它們

因此，首先，我很抱歉，因爲我是一個總的noob，當談到VBScript。我一直在Google上搜索，並嘗試了我在過去幾天發現的代碼示例，而我似乎無法將這些代碼放在一起。幫助VBScript監視文件夾的文件，然後重命名並移動它們

我需要編寫的代碼的目的是監視文件的文件夾。將文件寫入特定文件夾時，我需要能夠獲取文件名並將其縮短爲少於80個字符，然後將其移至不同的文件夾，而將原始文件夾留空。如果File恰好在文件名中少於80個字符，那麼我寧願單獨留下名稱，然後將它移動到不同的文件夾。在監視的文件夾中放置的文件名具有相當隨機的名稱。

我發現了很多關於如何使用VBScript重命名文件的例子，但是這些謂詞都已經有了文件名。

我還發現了一些如何使用WMI事件監視文件夾的示例，但我還沒有想出如何將這些文件綁定在一起。

對此有何幫助？

謝謝！

來源

2012-12-20 Michael Paul

這會給你一個目錄中所有文件的名稱。

Dim fso, folder, files, sFolder 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    sFolder = "C:\DOCUME~1\Philip\LOCALS~1\Temp" 
    Set folder = fso.GetFolder(sFolder) 
    Set files = folder.Files 
    For each k In files 
     WScript.Echo k 
    Next

來源

2012-12-20 22:57:17 Marichyasana

這是一個開始。那腳本雖然是一次性使用，對嗎？這很好，我可以簡單地使用Task Scheduler來每隔幾分鐘執行一次。但是，我將如何去盯着那個，然後用它來重命名和移動文件？從我讀的內容中，我會用其他的東西替換「WScript.Echo k」？像使用LEN參數重命名命令來修剪文件名的長度？ –

Marichyasana感謝您的留言。我能夠使用你發佈的內容並將一些適合我的東西一起使用。我錯過的部分是如何獲取您提供的文件夾中的名稱。再次感謝。 :) –

幫助VBScript監視文件夾的文件，然後重命名並移動它們

回答

相關問題