Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23735 / 76732 ←次へ | 前へ→

【58357】Re:ファイルの保存されているフォルダ名を取得
発言  マクロマン  - 08/10/21(火) 8:57 -

引用なし
パスワード
   質問の意図を読み違えてました。

FileSystemObjectを使ってファイルのフルパスからフォルダパスなどを
取得する方法です。

Dim FSO As Object
Dim mypath As String
Dim folpath As String
Dim folmei As String
Dim fmei As String
Dim fbasename As String
Dim kaku As String
 Set FSO = CreateObject("Scripting.FileSystemObject")
 mypath = "D:\hoge\test\aa.pdf" 'ファイルのフルパス
 folpath = FSO.getparentfoldername(mypath) 'フォルダのパス
 folmei = FSO.getfolder(folpath).Name 'フォルダ名
 fmei = FSO.getfile(mypath).Name 'ファイル名
 fbasename = FSO.getbasename(mypath) 'ファイル名から拡張子を除いた部分
 kaku = FSO.GetExtensionName(mypath) '拡張子
 MsgBox "ファイルのフルパス:" & mypath & vbCrLf & "フォルダパス:" & folpath & _
  vbCrLf & "フォルダ名:" & folmei & vbCrLf & "ファイル名:" & fmei & vbCrLf & _
  "拡張子を除いたファイル名:" & fbasename & vbCrLf & "拡張子:" & kaku
 Set FSO = Nothing

なお、フォルダのフルパスからフォルダ名を取得するのは、
InstrRev関数とRight、Lenなどを組み合わせてもできます。ファイル名を取得するのも
同じです。
3 hits

【58334】ファイルの保存されているフォルダ名を取得 col 08/10/20(月) 14:38 質問
【58335】Re:ファイルの保存されているフォルダ名を... マクロマン 08/10/20(月) 14:47 発言
【58336】Re:ファイルの保存されているフォルダ名を... col 08/10/20(月) 15:27 発言
【58342】Re:ファイルの保存されているフォルダ名を... マクロマン 08/10/20(月) 17:48 発言
【58357】Re:ファイルの保存されているフォルダ名を... マクロマン 08/10/21(火) 8:57 発言

23735 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free