Private Sub Menu_MouseR_OpenBased_Click()
If Not rsDP.EOF Then GetBasedFile = sysFileFind("D:\新建檔案夾\", rsDP.Fields("based").value & ".doc") Else Exit Sub
ShellExecute Me.hWnd, "open", GetBasedFile, "", "", SW_SHOWNORMAL
End Sub
圖片一直上傳不上來,就是只打開word應用,沒有新建檔案那樣的。
檔案名字應該沒錯的,因為名字不一致會提示的。
有大神幫我看看嘛
uj5u.com熱心網友回復:
好像解決了,shellexecute用錯了轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/88124.html
標籤:VB基礎類
下一篇:通過execl獲取網站資料
