にしやんさん、こんにちは。

＞njさん、こんにちは。
＞
＞＞My Documentsのあるパスを取得したいのですが、
＞＞どうすれば取得できるのでしょうか？
＞
＞API を使って「マイ ドキュメント」のパスを取得する方法です。
＞
＞●外部関数
＞FUNCTION Long SHGetSpecialFolderLocation( &
＞　　UnsignedLong hwndOwner, Long  nFolder, REF UnsignedLong ppidl) &
＞　　LIBRARY \"SHELL32.DLL\"
＞FUNCTION Boolean SHGetPathFromIDList(UnsignedLong pidl, REF String pszPath) &
＞　　LIBRARY \"SHELL32.DLL\" ALIAS FOR \"SHGetPathFromIDListA\"
＞SUBROUTINE CoTaskMemFree(UnsignedLong pv) LIBRARY \"OLE32.DLL\"
＞
＞●スクリプト
＞//定数宣言
＞CONSTANT UnsignedLong CSIDL_PERSONAL = 5 //マイ ドキュメント
＞CONSTANT UnsignedLong MAX_PATH = 260 //パス名最大サイズ
＞//変数宣言
＞UnsignedLong pidl
＞String szPath
＞
＞IF SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, pidl) >= 0 THEN
＞　　szPath = Space(MAX_PATH)
＞　　IF SHGetPathFromIDList(pidl, szPath) THEN
＞　　　　//szPath に「マイ ドキュメント」のパスがセットされている
＞　　ELSE
＞　　　　//エラー
＞　　END IF
＞　　CoTaskMemFree(pidl)
＞ELSE
＞　　//エラー
＞END IF
＞

どうもありがとうございました。
API関数というのは、あまりよくわからないのですが
どこかに参考になる所でもあるのなら教えてください