関数 指定したファイルの作成日を返す
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Function FileDate(PathName As String) As String '******************************** '指定したファイルの作成日を返す '******************************** '返り値はString型 '日付だけを"yyyy/mm/dd"形式で返す 'エラー時は"yyyy/mm/dd"を返す Dim GetDate As String On Error GoTo MyERR: GetDate = FileDateTime(PathName) FileDate = Format(GetDate, "yyyy/mm/dd") Exit Function MyERR: FileDate = "yyyy/mm/dd" 'FileDateTime 関数 '指定したファイルの作成日時または最後に修正した日時を示す値を返す ' '構文 ' 'FileDateTime (pathname) ' '引数 pathname は必ず指定します。 '引数 pathname には、ファイル名を示す文字列式を指定します。 'フォルダ名およびドライブ名を含めて指定できます｡ End Function Private Sub test() MsgBox FileDate(ThisWorkbook.Path & "\" & ThisWorkbook.Name) End Sub |
