FileCopy 同名檔案不覆蓋 - Excel程式區

[發問] FileCopy 同名檔案不覆蓋

1^# 跳轉到 »

發表於 2014-9-11 15:25 | 顯示全部帖子

if FileLen( "路徑*****" & myfile ) = 0 then
FileCopy.FoundFiles(i), "路徑*****" & myfile
end if

2^#

發表於 2014-9-11 17:24 | 顯示全部帖子

回復 bobomi

謝謝bobomi回覆

請問這個寫法是指如果檔案不存在才執行FileCopy的動作嗎???
li_hsien 發表於 2014-9-11 15:58

這樣就可以了

On Error Resume Next
If FileLen("路徑*****" & myfile) = 0 Then
On Error GoTo 0
FileCopy.FoundFiles (i), "路徑*****" & myfile
End If

3^#

發表於 2014-9-11 17:30 | 顯示全部帖子

or

If Dir("路徑*****" & myfile) = "" Then
FileCopy.FoundFiles (i), "路徑*****" & myfile
End If

4^#

發表於 2014-9-12 09:48 | 顯示全部帖子

那你就用 Dir

我猜到你用 FileLen 為何不行了
你的 EXCEL 檔是 csv 對嗎
我一直幻想著是你的是 xls 檔
xls 檔用FileLen 就可以
csv 檔用FileLen 就有機會出錯 ( 例如空的 csv 檔)

靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。