我在入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????
(程式內該宣告變數都有宣告)
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????
全站熱搜
留言列表