[Access vba] ファイル名の最後にそのファイルの更新日付を付ける: あした

2021年02月10日

[Access vba] ファイル名の最後にそのファイルの更新日付を付ける

ファイル名の最後にそのファイルの更新日付を付ける。ファイル名を付けた後、別のフォルダにBackup


Sub DLFile_rename()
                                
    Dim fso                 As Object
    Dim sData_Folder        As String
    Dim sFname              As String
    Dim sLastUpDay          As String           '更新日付

    Set fso = CreateObject("Scripting.FileSystemObject")

    sData_Folder = "\\Server\共有フォルダ\データフォルダ\"  
    sFname = Dir(sData_Folder & "xxxxxxxx*")         'file name

    Do While sFname <> ""
	'更新日付
        sLastUpDay = Replace(Left(fso.GetFile(sData_Folder & sFname).DateLastModified, 10), "/", "")        
        '日付がセットされていなければRename
        If Right(sFname, 8) <> sLastUpDay Then                                                              
            Name sData_Folder & sFname As sData_Folder & sFname & "_" & sLastUpDay                          
        End If
        
        sFname = Dir()
    Loop
    Set fso = Nothing

Proc_EXIT:
    Exit Sub
ErrProc:
    MsgBox Err.Number & " " & Err.Description
    Resume Proc_EXIT
End Sub

【このカテゴリーの最新記事】

posted by naka at 14:19 | TrackBack(0) | Access vba

この記事へのトラックバックURL
https://fanblogs.jp/tb/10530190
※ブログオーナーが承認したトラックバックのみ表示されます。

この記事へのトラックバック