Board logo

標題: [發問] 如何更名資料夾名稱和特定資料文字檔? [打印本頁]
作者: luke    時間: 2012-5-12 15:03     標題: 如何更名資料夾名稱和特定資料文字檔?

本帖最後由 luke 於 2012-5-13 20:23 編輯

各位大大

Sheet1表A:B欄為變數內容, A欄的數字表示資料夾編號
即為0表LAN0資料夾, 數字1表LAN1資料夾,..... 餘此類推.

將A:B欄存成TEST20.txt和D欄存為OP.tx(內容以B欄替換)
最後進行資料夾名稱更名, 依照A欄所示將原始資料夾改名

如何更名資料夾名稱和製作文字檔?
作者: hugh0620    時間: 2012-5-16 11:23

回復 1# luke

     噗~ 有看沒有懂耶~ 要不要拆解一下~ 你的問題先後順序~
     第一個步驟~ 原始資料為何~
     第二個步驟~ 要依什麼條件來處理~
     第三個步驟~ 要的結果為何~
作者: alumi    時間: 2012-5-17 13:36

改檔案 或 資料夾名稱, 可用 name 指令
輸出的部份, 可參考 文字檔案 輸出指令, ex: write, print ....
作者: luke    時間: 2012-5-17 20:29

回復 2# hugh0620


    你好

   我想將三個資料夾進行更名
   例如:
   我有LAN0, LAN1和LAN2, 共3個資料夾
   我想直接將LAN0名稱改成LAN2
   LAN1改成LAN0
   LAN2改成LAN1
   
   不知該如何去寫語法?
作者: luke    時間: 2012-5-17 20:30

回復 3# alumi


    謝謝你的回覆

    我沒用過name語法
    不知該如何去寫
作者: Hsieh    時間: 2012-5-17 21:06

回復 5# luke

這會因為命名衝突而失敗，需用2次命名
  1. Sub yy()
  2. For i = 0 To 2
  3.   Name "E:\LAN" & i As "E:\LAN" & Format(i * 10, "00") '將命名代號*10並用2位數值取代
  4. Next
  5. For i = 1 To 2
  6.   Name "E:\LAN" & i * 10 As "E:\LAN" & i - 1 '排除0以外重新命名代號-1
  7. Next
  8. Name "E:\LAN00" As "E:\LAN2" '將原來編號為0改為2
  9. End Sub
複製代碼
作者: alumi    時間: 2012-5-17 21:20

回復  alumi


    謝謝你的回覆

    我沒用過name語法
    不知該如何去寫
luke 發表於 2012-5-17 20:30


語法如下:
    name   舊檔名或目錄名字串   as   新檔名目目錄名字串
作者: luke    時間: 2012-5-17 22:36

回復 7# alumi


    謝謝你的回覆

     H超版有範例說明

     現在我想處理刪除資料夾問題,
     例如刪除E:\123資料夾
     要如何去寫這個語法
作者: Hsieh    時間: 2012-5-17 23:08

本帖最後由 Hsieh 於 2012-5-17 23:24 編輯

回復 8# luke
這要看此資料夾內是否有資料
檔案操作要從最末端開始刪除
也就是從子資料夾的檔案開始刪除
kill可刪除檔案
刪完一層的檔案後再刪該資料夾
rmdir可刪除資料夾
檔案操作請參考
作者: oobird    時間: 2012-5-17 23:25

Set delf = CreateObject("Scripting.FileSystemObject")
delf.DeleteFolder "E:\123"



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