Board logo

標題: 移動檔案或資料夾 [打印本頁]
作者: tomking    時間: 2011-4-17 20:42     標題: 移動檔案或資料夾

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

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



麻煩.
作者: Hsieh    時間: 2011-4-17 22:35

不就是複製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    時間: 2011-4-18 08:23

版主.謝謝,

那再請教, 如只是移動資料夾內之所有檔案..不知,應如何寫?
作者: Hsieh    時間: 2011-4-18 09:21

回復 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    時間: 2011-4-18 16:11

感謝.. 版主,
作者: tamami    時間: 2011-8-24 19:04

回復 1# tomking


  這個巨集我剛好需要   謝謝:D
作者: starry1314    時間: 2015-6-5 09:31

回復 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:\目錄\結束



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)