【VBScript】フルパスからフォルダパスを取得する

2023年2月4日VBScript

フルパスからフォルダパスを取得する

フルパスからフォルダパスを取得する方法です。

例えば「C:\test\Book1.xlsx」の時、「C:\test\」を取得します。

Dim fs
Dim folderName
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
folderName = Replace("ファイルパス" , fs.GetFile("ファイルパス").Name , "")

'フォルダ名をメッセージボックスで表示
WScript.Echo folderName                           'フォルダパスを表示
WScript.Echo mid(folderName,1,len(folderName)-1)  '最後の"￥"取り除いたパターン


'実行例
Dim fs
Dim folderName
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
folderName = Replace("C:\test\list1.txt" , fs.GetFile("C:\test\list1.txt").Name , "")

'フォルダ名をメッセージボックスで表示
WScript.Echo folderName                     '結果 ： C:\test\
msgbox mid(folderName,1,len(folderName)-1)  '結果 ： C:\test

 

 

フルパスからファイル名を取得する

フルパスからファイル名を取得する方法はこちらで紹介しています。