【VBA】 特殊フォルダパスを取得する

マイドキュメントやデスクトップなど、特殊フォルダのパスを取得する関数です。

関数概要

  • 関数名: FNCGetSpecialFolderPath
  • 入力引数; P_IN_WSHSpecialFolder ( 独自型 WSHSpecialFolder ) : Desktop や MyDocuments など、特殊フォルダ名を設定します。
  • 出力引数: P_OUT_SpecialFolderPath ( String 型) : 特殊フォルダのパスが設定されます。
  • 返り値:リターンコードが返却されます。

実行例

  • 準備中

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

  • 準備中

ソースコード


'-----------------------------------------------------------------
' 特殊フォルダパスを取得する
'    AllUsersDesktop
'    AllUsersStartMenu
'    AllUsersPrograms
'    AllUsersStartup
'    Desktop
'    Favorites
'    Fonts
'    MyDocuments
'    NetHood
'    PrintHood
'    Programs
'    Recent
'    SendTo
'    StartMenu
'    Startup
'    Templates
'-----------------------------------------------------------------
Function FNCGetSpecialFolderPath(P_IN_WSHSpecialFolder As WSHSpecialFolder, P_OUT_SpecialFolderPath As String) As Integer
On Error GoTo ErrorHandler
    FNCGetDesktopPath = Me.ReturnError
    Dim path As String, WSH As Variant, OpenFileName As String
    Set WSH = CreateObject("WScript.Shell")
    path = WSH.SpecialFolders(P_IN_WSHSpecialFolder)
    P_OUT_SpecialFolderPath = path
    FNCGetDesktopPath = Me.ReturnNomal
    Exit Function
ErrorHandler:
    MsgBox Err.Number & ":" & Err.Description, vbCritical & vbOKOnly, "エラー"
    FNCGetDesktopPath = Err.Number
    Exit Function
End Function

ソースコード説明

  • 準備中
[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格:1944円(税込、送料無料) (2019/7/23時点)

返信を残す

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