![我编写了这个 VBS 脚本来将“修改日期”从一个文件夹中的文件复制到另一个文件夹中,但有一个查询](https://linux22.com/image/1588386/%E6%88%91%E7%BC%96%E5%86%99%E4%BA%86%E8%BF%99%E4%B8%AA%20VBS%20%E8%84%9A%E6%9C%AC%E6%9D%A5%E5%B0%86%E2%80%9C%E4%BF%AE%E6%94%B9%E6%97%A5%E6%9C%9F%E2%80%9D%E4%BB%8E%E4%B8%80%E4%B8%AA%E6%96%87%E4%BB%B6%E5%A4%B9%E4%B8%AD%E7%9A%84%E6%96%87%E4%BB%B6%E5%A4%8D%E5%88%B6%E5%88%B0%E5%8F%A6%E4%B8%80%E4%B8%AA%E6%96%87%E4%BB%B6%E5%A4%B9%E4%B8%AD%EF%BC%8C%E4%BD%86%E6%9C%89%E4%B8%80%E4%B8%AA%E6%9F%A5%E8%AF%A2.png)
我编写了这个 VBS 代码来将“修改日期”从一个文件夹中的文件复制到另一个文件夹。
Dim sOriginFolder, sDestinationFolder, sFile, oFSO, oShell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\Users\asd\Desktop\Destination")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
sOriginFolder = "C:\Users\asd\Desktop\Source"
sDestinationFolder = "C:\Users\asd\Desktop\Destination"
For Each sFile In oFSO.GetFolder(sOriginFolder).Files
Set objFolderItem = objFolder.ParseName(oFSO.GetFileName(sFile))
objFolderItem.ModifyDate = FormatDateTime(sFile.DateLastModified,0)
Next
它可以工作,但是有一个问题。如果文件的扩展名不同,则脚本会崩溃。
我怎样才能解决这个问题?