移動檔案或資料夾

tomking

在EXCEL A1 欄位  為 C:\A
              B1 欄位  為 D:\SAVE\
              C1 欄位:  為 E:\SAVE\  

如何用巨集,將  A資料夾 移動至 D:\SAVE\ 中
               再將 A資料夾 COPY至  D:\SAVE\ 中  



麻煩.

Hsieh

不就是複製2次然後刪除嗎?

1. Sub ex()
   
2. Set fd = CreateObject("Scripting.FileSystemObject")
   
3. fd.copyfolder [A1], [B1] '複製到D:\TEST\
   
4. fd.copyfolder [A1], [C1] '複製到E:\TEST\
   
5. fd.DeleteFolder [A1] '刪除C:\A
   
6. End Sub

複製代碼

tomking

版主.謝謝,

那再請教, 如只是移動資料夾內之所有檔案..不知,應如何寫?

Hsieh

回復 3# tomking

1. Sub nn()
   
2. Set fds = CreateObject("Scripting.filesystemobject")
   
3. fd = "C:\A\" '來源檔案資料夾
   
4. fs = Dir(fd) '來源檔案資料夾內的檔案名
   
5. Do Until fs = "" '直到讀取檔案名是空字串
   
6. If fds.FileExists("D:\TEST\" & fs) Then Kill "D:\TEST\" & fs '如果檔案已經存在就先刪除檔案
   
7.    fds.movefile fd & fs, "D:\TEST\" '移動檔案到目標資料夾
   
8. fs = Dir '下一個檔案
   
9. Loop
   
10. End Sub

複製代碼

tomking

感謝.. 版主,

tamami

回復 1# tomking


  這個巨集我剛好需要   謝謝:D

starry1314

回復 4# Hsieh


    版主~想請問 如果想移動指定檔案 移動到另一資料夾呢?
同目錄
ex:
目前使用巨集是以一個[檔案1] 建立[檔案2]並自動依儲存格名稱存檔至
D:\目錄\進行
檔案1.xls           ActiveWorkbook.SaveAs Filename:="D:\目錄\進行 " &  Range("B5") & "-" & Format(Range("B2"), "yyyymmddhhss") & Range("C2") & ".xlsm"
因我有再[檔案2]呼叫檔案名稱並貼至[檔案1]AN3,想請問要怎麼讓路徑可以是用讀取儲存格來做變動呢?
移動至以下路徑
指定檔名  D:\目錄\進行\[AN3]      
移動至      D:\目錄\結束