我在入VB門網內擷取了一個儲存檔案的程式,做了部份修改後如下:
(程式內該宣告變數都有宣告)
Pathx1 = dirDir(1).Path & "\" & strNewFilename
With ShellCall
.hwnd = hwnd
  .wFunc = FO_COPY    'FO_MOVE
  .pFrom = "C:\Emolument\EmolumentData.mdb"   '來源檔案
  .pTo = Pathx1    '目的檔案
  '.fFlags = FOF_RENAMEONCOLLISION
  .hNameMappings = 0

End With
lngResult = SHFileOperation(ShellCall)
If lngResult <> 0 Then
'MsgBox Err.LastDllError
  MsgBox "錄製失敗,操作中止...!!!", vbOKOnly +vbInformation, "檔案儲存提示訊息....."
  MsgBox "未完成檔案儲存動作...!!!", vbOKOnly + vbInformation, "檔案儲存提示訊息....."

Else
If ShellCall.fAnyOperationsAborted <> 0 Then
    MsgBox "操作中止", vbOKOnly + vbInformation, "檔案儲存提示訊息....."
    Exit Sub
  End If
  MsgBox "檔案複製完畢...!!!", vbOKOnly + vbInformation, "複製完成提示訊息....."

End If
在windowxp執行時,不管檔案是存到硬碟或磁片都沒問題
不過,在window98要存到磁片時却出現了以下訊息:
"無法複製EmolumentData.mdb:網路路徑找不到"

(window98:檔案存到硬碟中沒問題)
很奇怪的是,我並沒有動到網路部份,且在windowxp時一切正常
不知問題是出在那呢?????
在執行此一敍述時lngResult = SHFileOperation(ShellCall)
出現以下訊息:"無法複製EmolumentData.mdb:網路路徑找不到"
錯誤代碼:117????
arrow
arrow
    全站熱搜

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