来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