0

皆さんこんにちは！

私は.vbと.vbsを掘り下げてきました。コピー後にファイルの名前を変更することに関して、小さな問題があります。これから（クレジットが必要な場合はクレジットを与えるだけです:p）人 ファイルを別のフォルダーにコピーする方法を見つけましたが、ファイルの名前を変更できなかったようです。

だから私はファイルをコピーし、オリジナルの名前を変更して実行したい.HMS

これはコピーするためのコードです：

Set objFSo = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("F:\commandfolder")

Set colFiles = objFolder.Files

dtmOldestDate = Now
 
For Each objFile in colFiles
    If objFile.DateCreated < dtmOldestDate Then
        dtmOldestDate = objFile.DateCreated
        strOldestFile = objFile.Path
    End If
Next

objFSO.CopyFile strOldestFile, "F:\commandfolder\Processed\"

よろしくお願いいたします。

デイブ

4

3 に答える 3

0

これは私の実用的なソリューションです（コンテキストに合わせて編集されていますが、必要に応じて理解してください:)）

Set obj = CreateObject("Scripting.FileSystemObject")
Set objFSo = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("F:\commandfolder")

Set colFiles = objFolder.Files

dtmOldestDate = Now

For Each objFile in colFiles
    If objFile.DateCreated < dtmOldestDate Then
        dtmOldestDate = objFile.DateCreated
        strOldestFile = objFile.Path
    End If
Next


objFSO.CopyFile strOldestFile, "F:\commandfolder\Processed\"
obj.DeleteFile("F:\commandfolder\Action\execute.hms")
objFSO.MoveFile strOldestFile, "F:\commandfolder\Action\execute.hms"
于 2013-11-02T11:28:52.370 に答える