[發問] 移動資料夾內的檔案

PJChen

各位大大好,

請教....
驗收單資料.xlsx 原本是在電腦中的D:
但最近公司改用NAS,當移動檔案時,會出現對話框,
警告檔案可能有害,是否仍要使用它?
這會使程式無法繼續,
但是用剪下>>貼上,則不會有警告出現！
請問以下程式,如何改成 剪下>>貼上的寫法
或者有其他寫法使程式不中斷？

1. Sub 驗收單歸檔()
   
2. Dim fds As Object, PH$, xPH$, FN$, i$, xD As Worksheet
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. 
   
6. Set xD = ThisWorkbook.Sheets("VBA")  '程式來源
   
7. i = Format(Date, "yyyymmdd")
   
8. 
   
9. PH="\\192.......\倉儲\驗收單\"
   
10. xPH = "\\192......\倉儲\驗收單\歸檔\"
    
11. Set fds = CreateObject("Scripting.filesystemobject")
    
12. 
    
13. FN = Dir(PH & "*" & 驗收單資料 & "*" & i & "*" & ".XLS*")  '來源資料夾內的檔案名
    
14. '-------------
    
15.     If fds.FileExists(xPH & FN) Then Kill xPH & FN '如果檔案已經存在就先刪除檔案
    
16.        fds.movefile PH & FN, xPH '移動檔案到目標資料夾

複製代碼

singo1232001

由於本人也沒經驗
只能想到兩種方式

   1.用Application.SendKeys "{ENTER}"  可以搭配if判斷前面是否192開頭

2.這就有點難= =
http://forum.twbts.com/viewthread.php?tid=19128  
上述5樓有提供一個方法 可以參考 沒實際嘗試過 或許就不用創vbs

如果是程序強制卡住不讓你跑  可能需要用vbs去操作 等於叫小弟在旁邊輔助
阿偉聽話  傑哥下一秒就要卡了  記得幫忙按enter 大概是這樣....

還有更刺激的操作....
甚至這份vbs檔 都用vba創出來 就必須要用到新增txt+與txt寫入+存檔成vbs
https://stackoverflow.com/questions/22428667/append-to-text-file-vba/22429594
很像上面這樣
然後在要卡之前 執行txt