- Option Explicit
- Dim objShell
- Set objShell = CreateObject("WScript.Shell")
- 'カレントディレクトリのパスを取得
- MsgBox objShell.CurrentDirectory
- Set objShell = Nothing
WindowsXPの場合:C:\Documents and Settings\[ユーザー名]
Windows7の場合:C:\Windows\System32
となってしまう。
VBScriptをどこにおいても、またドラッグ&ドロップするファイルが存在するパスに関係なく、このフォルダをカレントディレクトリと誤認する。
ただし、特殊フォルダのパスを取得することは可能。
- Option Explicit
- Dim objShell
- Set objShell = CreateObject("WScript.Shell")
- 'デスクトップのパスを取得
- MsgBox objShell.SpecialFolders("Desktop")
- Set objShell = Nothing
0 件のコメント:
コメントを投稿