☰

我编写了这个 VBS 脚本来将“修改日期”从一个文件夹中的文件复制到另一个文件夹中，但有一个查询

tag-icon • tag-icon vbscript
我编写了这个 VBS 脚本来将“修改日期”从一个文件夹中的文件复制到另一个文件夹中，但有一个查询

我编写了这个 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

它可以工作，但是有一个问题。如果文件的扩展名不同，则脚本会崩溃。

我怎样才能解决这个问题？

相关内容