System フォルダのパスを取得

戻る

System フォルダのパスを取得

動作環境 Windows98/2000 開発環境 Visual Basic 6.0 (+SP5)

説明 FileSystemObject オブジェクトの GetSpecialFolder メソッドを利用して、System フォルダのパスを取得します。

用意するもの：標準フォーム(Form1)、コマンドボタン (Command1)

Private Sub Command1_Click()

Dim MyFSO As Object
Dim MyFolder As String
Const SystemFolder = 1

Set MyFSO = CreateObject("Scripting.FileSystemObject")

MyFolder = MyFSO.GetSpecialFolder(SystemFolder)

MsgBox MyFolder, vbInformation, "System フォルダのパスを取得"

Set MyFSO = Nothing

End Sub

System フォルダのパスを取得
動作環境	Windows98/2000	開発環境	Visual Basic 6.0 (+SP5)
説明	FileSystemObject オブジェクトの GetSpecialFolder メソッドを利用して、System フォルダのパスを取得します。
用意するもの：標準フォーム(Form1)、コマンドボタン (Command1)
Private Sub Command1_Click() Dim MyFSO As Object Dim MyFolder As String Const SystemFolder = 1 Set MyFSO = CreateObject("Scripting.FileSystemObject") MyFolder = MyFSO.GetSpecialFolder(SystemFolder) MsgBox MyFolder, vbInformation, "System フォルダのパスを取得" Set MyFSO = Nothing End Sub