目次
環境
Windowsの仕様
エディション:Windows 10 Pro
バージョン:20H2
経緯
VBAを使って、データを抜き取るプログラムを作っていました。
抜き取るデータのファイル名も欲しかったので、
今回勉強しました。
「fso.GetFile」を使う
「fso.GetFile」を使うとうまくいきました。コードを載せます。
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim f As File
Set f = fso.GetFile("C:\Users\morinokabu\デスクトップ\test.txt")
Dim s As String
s = f.Name
Set fso = Nothing
コードの説明をします。空白の行はカウントしません。
1行目、変数を宣言してます。
2行目、オブジェクト変数(fso)にオブジェクト(New FileSystemObject)への参照を代入しています。
3行目、変数を宣言してます。
4行目、ファイルを取得しています。私の場合はCドライブの中にtxtファイルが入っているので()内はこんな感じになっています。
5行目、変数を宣言しています。
6行目、ここでファイル名を取得しています。
7行目、後処理です。
この後の展開
今後の展開としては、取得したファイル名をセルに貼り付けたり、
ファイル名を削ったりして、使用したりできますよ。
ここまで読んでいただきありがとうございました。
