FileSystemObjectでファイルのリネームと移動をするには?

解決


ひな  2003-10-07 16:39:35  No: 79697  IP: [192.*.*.*]

FileSystemObjectで以下のプログラムを作成したいのですが。。

あるフォルダに該当のファイルが存在した場合、その存在した
ファイルをバックアップ用のフォルダにファイル名+前日の日付
でリネームしてから移動する。
存在しなければ、そのまま作成する。

仮定
あるフォルダ・・・D:\NKSYS\DAT
該当するファイル名・・・Nkdata.cvs
バックアップ用フォルダ・・・D:\NKSYS\BKUP
リネーム後・・・20031006Nkdata.cvs

といった動作を実現させたいのです。
削除もわかります。
新規作成もわかります。
ファイルの移動とリネームがわかりません。。(T_T)


環境はVB6.0SP5です。

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

編集 削除
oku  URL  2003-10-07 23:49:26  No: 79698  IP: [192.*.*.*]

Dim colFilesystem   As Object
    Dim strOldPath      As String
    Dim strNewPath      As String
    Dim strOldFileName  As String
    Dim strNewFileName  As String
    
    Set colFilesystem = CreateObject("Scripting.FileSystemObject")
    strOldPath = "D:\NKSYS\DAT\"
    strNewPath = "D:\NKSYS\BKUP\"
    strOldFileName = "Nkdata.cvs"
    strNewFileName = "20031006Nkdata.cvs"
    ' ファイルの移動
    colFilesystem.MoveFile strOldPath & strOldFileName, strNewPath
    
    Set objFile = colFilesystem.GetFile(strNewPath & strOldFileName)
    ' ファイルのリネーム
    objFile.Name = strNewFileName
    ' オブジェクトを解放
    Set colFilesystem = Nothing

こんな感じでどうでしょう?

編集 削除
ひな  2003-10-08 10:55:28  No: 79699  IP: [192.*.*.*]

okuさま!!ありがとうございました。
.MoveFile
.Name

ですね!!

・・・もっと勉強します!!
ありがとうございました!!

編集 削除