来VB区请教个cmd命令,如何复制目录下面最新的一个文件
比如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