[[20081206064608]]　『フォルダパスの最後のフォルダを取り出す』（横町）　ページの最後に飛ぶ

『フォルダパスの最後のフォルダを取り出す』（横町）

 マクロで、fold_pと言う変数に、C:\Program Files\Lhaca　が入ってますが、
 Lhacaだけを取り出すにはどうする？

 FileSysytemObjectを使います。

 Dim FSO As Object
 Dim folpath As String
  Set FSO = CreateObject("Scripting.FileSystemObject")
  folpath = "C:\Program Files\Lhaca"
  MsgBox FSO.GetFolder(folpath).Name
  Set FSO = Nothing

 参考ＨＰです。

 Office TANAKA - FileSystemObjectの解説(はじめに)
http://www.officetanaka.net/excel/vba/filesystemobject/index.htm

 Split関数を使った例です。

 Dim folpath As String
 Dim sp As Variant
  folpath = "C:\Program Files\Lhaca"
  sp = Split(folpath, "\")
  MsgBox sp(UBound(sp))

 ほかにも、
 InstrRev関数で一番右の"\"の位置を取得して、
 Right関数で切り出す、という方法もあります。
 (MARBIN)

MARBINさんありがとうございました（横町）

コメント返信：

[ 一覧(最新更新順) ]

[[20081206064608]] 『フォルダパスの最後のフォルダを取り出す』（横町） ページの最後に飛ぶ

[[20081206064608]]　『フォルダパスの最後のフォルダを取り出す』（横町）　ページの最後に飛ぶ