Private Sub Command1_Click()
Dim Temp As String
Temp = InputBox("输入路径")
If Temp <> "" Then StrP = Temp
End Sub
Private Sub Command2_Click()
StrP = "z:\test.txt"
End Sub
Private Sub Form_Load()
Call Command2_Click
Hook Me.hwnd
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
UnHook Me.hwnd
End Sub