Categories
SugiBlog ホームページ制作・システム開発

特殊フォルダのパスを取得したいとき

特殊なフォルダはパソコンによって、あるいはWindowsによって場所がまちまちです。
そんなときそのパスを取得する方法を知っていれば便利ですね。
サンプル1では、デスクトップとマイドキュメントのパスを知ることができます。
サンプル2では、Windowsのセットアップ場所、システムフォルダ、一時フォルダのパスを取得できます。

Public Sub GetSpecialFolder_1()
'特殊フォルダのパスを取得_1
    Dim ws

    Set ws = CreateObject("WScript.Shell")

    MsgBox "Desktop= " & ws.SpecialFolders("Desktop")
    MsgBox "MyDocuments= " & ws.SpecialFolders("MyDocuments")

End Sub

Public Sub GetSpecialFolder_2()
'特殊フォルダのパスを取得_2

    Dim FSO
    Dim OBJ

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set OBJ = FSO.GetSpecialFolder(0)
    MsgBox "setup= " & OBJ.Path
    Set OBJ = FSO.GetSpecialFolder(1)
    MsgBox "system= " & OBJ.Path
    Set OBJ = FSO.GetSpecialFolder(2)
    MsgBox "temporary= " & OBJ.Path

End Sub
1,856 views

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*