'変数の明示的な宣言を強制
Option Explicit

Private Sub Command1_Click()

'オブジェクトへの参照を格納するための変数
Dim myFSO As Object

'相対パスを格納するための変数
Dim myPath As String

'FileSystemObject オブジェクトへの参照を作成し、変数に代入
Set myFSO = CreateObject("Scripting.FileSystemObject")

'相対パスを変数に代入
myPath = Text1.Text

'GetAbsolutePathName メソッドが返す絶対パスを表示
Text2.Text = myFSO.GetAbsolutePathName(myPath)

'変数とその変数が参照しているオブジェクトとの関連付けの解除
Set myFSO = Nothing

End Sub

Private Sub Form_Load()

'フォームの初期化処理

Me.Caption = "相対パスを絶対パスに変換する方法(GetAbsolutePathName メソッドの使用例)"

Text1.Text = "ここに相対パスを入力してください"

Text2.Text = "変換ボタンをクリックすると、ここに絶対パスが表示されます"

Command1.Caption = "変換"

End Sub