SHGetFolderPath が使えない。なぜか宣言されていない変数とのコンパイルメッセージが出る。 Dim mehwnd As HWND, CSIDLValue As Long Dim strGetFolderPath As String 'Dim strGetFolderPath As String * MAX_PATH 'Dim strGetFolderPath As ZString * MAX_PATH Dim hToken as HANDLE = 0, dwFlags as DWORD =0 Dim IErrorLong As Long mehwnd = 0 'Declare function SHGetFolderPathA(byval hwnd as HWND, byval csidl as long, byval hToken as HANDLE, byval dwFlags as DWORD, byval pszPath as LPSTR) as HRESULT 'ユニコード ' declare function SHGetFolderPath alias "SHGetFolderPathW"(byval hwnd as HWND, byval csidl as long, byval hToken as HANDLE, byval dwFlags as DWORD, byval pszPath as LPWSTR) as HRESULT 'その他 ' declare function SHGetFolderPath alias "SHGetFolderPathA"(byval hwnd as HWND, byval csidl as long, byval hToken as HANDLE, byval dwFlags as DWORD, byval pszPath as LPSTR) as HRESULT '「HRESULT」は「Long」の別名
