来VB区请问个cmd命令，怎么复制目录下面最新的一个文件
来VB区请教个cmd命令，如何复制目录下面最新的一个文件
比如C:\下面有很多txt文件，文件名不固定，如何去copy 最新的一个txt到指定目录？
觉得VB高手对于cmd命令比较熟悉，特来请教
------解决方案--------------------
通过attrib获取文件的属性（包括修改时间），然后在筛选出最新的文件，通过Copy来复制即可。
------解决方案--------------------
比如C:\下面有很多txt文件，文件名不固定，如何去copy 最新的一个txt到指定目录？
觉得VB高手对于cmd命令比较熟悉，特来请教
------解决方案--------------------
通过attrib获取文件的属性（包括修改时间），然后在筛选出最新的文件，通过Copy来复制即可。
------解决方案--------------------
本帖最后由 bcrun 于 2012-11-29 15:35:24 编辑
'引用 Microsoft Scripting Runtime
Dim objFSO As New FileSystemObject
Dim objFileDetails As File
Dim strFileName As String
Dim myDate As Date, newestFile As String
strFileName = Dir("C:\*.txt")
Do While strFileName > ""
Set objFileDetails = objFSO.GetFile("C:\" & strFileName)
If objFileDetails.DateLastModified > myDate Then
myDate = objFileDetails.DateLastModified
newestFile = strFileName
End If
strFileName = Dir()
Loop
If newestFile > "" Then
If Dir("C:\backup", vbDirectory) = "" Then MkDir "C:\backup"
FileCopy "C:\" & newestFile, "C:\backup\" & newestFile
End If