[發問] 如何更名資料夾名稱和特定資料文字檔?

luke

各位大大

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

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

如何更名資料夾名稱和製作文字檔?

hugh0620

回復 1# luke

     噗~ 有看沒有懂耶~ 要不要拆解一下~ 你的問題先後順序~
     第一個步驟~ 原始資料為何~
     第二個步驟~ 要依什麼條件來處理~
     第三個步驟~ 要的結果為何~

alumi

改檔案 或 資料夾名稱, 可用 name 指令
輸出的部份, 可參考 文字檔案 輸出指令, ex: write, print ....

luke

回復 2# hugh0620


    你好

   我想將三個資料夾進行更名
   例如:
   我有LAN0, LAN1和LAN2, 共3個資料夾
   我想直接將LAN0名稱改成LAN2
   LAN1改成LAN0
   LAN2改成LAN1
   
   不知該如何去寫語法?

luke

回復 3# alumi


    謝謝你的回覆

    我沒用過name語法
    不知該如何去寫

Hsieh

回復 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

回復  alumi


    謝謝你的回覆

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

語法如下:
    name   舊檔名或目錄名字串   as   新檔名目目錄名字串

luke

回復 7# alumi


    謝謝你的回覆

     H超版有範例說明

     現在我想處理刪除資料夾問題,
     例如刪除E:\123資料夾
     要如何去寫這個語法

Hsieh

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

oobird

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