不明白!可以举例吗?
Dim filename As String
Private Sub Command1_Click()Shell filename & "\VISDATA.EXE"End Sub
Private Sub Form_Load()filename = CurDirEnd Sub