使用VBS自动拷贝目录中的最新文件到指定目录

此次解答不为分，仅为解疑而已

请不要选为采纳，仍支持楼上

对追问解答：

法1：'改为

objFSOcopyFile "D:\abc"&eval("n"&j),"D:\123\"

法2：

直接将此vbs文件放入"D:\abc"文件夹中即可

此vbs 未找到有关时间的代码，修改时间，创建时间，访问时间，不知要问的是哪个时间

Set fso= CreateObject("ScriptingFileSystemObject")

Set file = fsoGetFile("E:\Documents and Settings\Administrator\桌面\新建文件夹\1txt")

'File 对象的 DateCreated 属性返回该文件夹的创建日期和时间

'File 对象的 DateLastModified 属性返回最后一次修改该文件的日期和时间

'File 对象的 DateLastAccessed 属性返回最后一次访问该文件的日期和时间

MsgBox "创建时间：" & fDateCreated & vbCrLf & "修改时间：" & fDateLastModified & vbCrLf & "访问时间：" & fDateLastAccessed, vbInformation, fName & "属性"

dim wsh,objFSO

strFolder = "D:\abc" '将D:\vbs改成你要改的文件所在位置

set wsh=createobject("wscriptshell")

Set objFSO = CreateObject("ScriptingFileSystemObject")

Set objFolder = objFSOGetFolder(strFolder)

Set colFiles = objFolderFiles

i=1

For Each strFile in colFiles

If Lcase(objFSOGetExtensionName(strFile)) = "jpg" Then

Execute "n"&i&"=strFilename"

i=i+1

End If

Next

For j=i-1 To i-4 Step -1

'

'此处加个msgbox eval("n"&j)

'显示的只有文件名，当你没有把此vbs放入 "D:\abc"文件夹下时会出现未找到文件错误，因为

'objFSOcopyFile eval("n"&j),"D:\123\"为 objFSOcopyFile 随机jpg,"D:\123\"

'而 随机jpg 在"D:\abc"文件夹下，（当你没有把此vbs放入 "D:\abc"文件夹下时）。

'

'objFSOcopyFile eval("n"&j),"D:\123\"

'

'改为

objFSOcopyFile "D:\abc"&eval("n"&j),"D:\123\"

'或者直接将此vbs文件放入"D:\abc"文件夹中即可

next

Set objFSO = Nothing

可以使用批处理或VBS脚本来实现，具体步骤如下：

1 使用dir命令搜索文件夹内所有文件，并将结果保存到一个文本文件中。

2 使用findstr命令搜索文本文件中所有版本号为20的文件，并将结果保存到另一个文本文件中。

3 使用findstr命令搜索文本文件中所有dll和EXE文件，并将结果保存到另一个文本文件中。

4 使用for命令循环读取文本文件中的每一行，并使用del命令删除指定版本号的dll和EXE文件。

其实知道cmd中有个xcopy的命令就是复制文件夹的，

我们只需要调用这个命令即可：

set ws=wscriptcreateobject("wscriptshell")

wsrun"cmd /c xcopy 需要复制的文件夹 目的地 /e"

其中需要复制的文件夹、目的地，改为自己的；

如果我想把C:\Program Files\aaa复制到D:\aaa代码就是这样的：

set ws=wscriptcreateobject("wscriptshell")

wsrun"cmd /c xcopy C:\Program Files\aaa D:\aaa /e"

下面的代码是读取当前文件夹的所有文件：

'══代══码══开══始════

set fso=CreateObject("ScriptingFileSystemObject")

set fs=fsogetfolder("")files

for each f in fs

msgbox fpath

next

'══代══码══结══束════

说明：

使用folder对象中的files属性，获取文件集合，然后用for each枚举。

枚举到的都是一个file对象，当然可以直接应用其属性和方法。

以上就是关于使用VBS自动拷贝目录中的最新文件到指定目录全部的内容，包括:使用VBS自动拷贝目录中的最新文件到指定目录、如何用批处理或VBS获取并删除文件夹内所有指定版本号文件、vbs下载文件保存到当前目录等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！