i want to open the doc., when i click the doc. name from the filelistbox...
i use the following code :
Private Sub File1_Click()
Dim filename As String
filename = File1.Path
 If Right(filename, 1) <> "\" Then filename = filename & "\"
 filename = filename & File1.filename
 Shell "filename", vbHide
End Sub
but it have a error said"file not find"....anybody can tell me why????
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(5) 人氣()