[發問] 大量檔案,依條件,移動位置

tomking

各位大大,,,

再麻煩

來源
     
D:\B01\setupdata\b01_20100101_1.txt
D:\B01\setupdata\b01_20100101_2.txt
D:\B01\setupdata\b01_20100101_3.txt
D:\B01\setupdata\b01_20100102_1.txt
D:\B01\setupdata\b01_20100102_2.txt
D:\B01\setupdata\b01_20100103_1.txt
D:\B01\setupdata\b01_20100104_1.txt
D:\B01\setupdata\b01_20100105_1.txt

D:\B01\setupdata\b01_20111005_1.txt
.
.

.
.
.
.
.
D:\B99\setupdata\b01_20101005_1.txt
D:\B99\setupdata\b01_20101006_1.txt
D:\B99\setupdata\b01_20111004_1.txt
PS: 1. 第1層資料夾:B01~B99 ,可能有些沒有DATA
      

移動:
E:\SAVE\B01\setupdata\b01_20100101_1.txt
E:\SAVE\B01\setupdata\b01_20100101_2.txt
E:\SAVE\B02\20100101\   
E:\SAVE\B02\20100102\   

PS: 移動原則: 設定第2層區間: EX: B01~B05
                         設定第3層檔名名稱:第4~11碼 小於條件式,   


THS.

tomking

DEAR.

己解決..  


THS.

Hsieh

回復 3# tomking


    移動檔案最重要是目錄字串的問題
你兩次舉例各有不同的目錄參照方式
作法請參考VBA的Createobject中FileSystemObject的MoveFile方法說明

tomking

DEAR .
更正

移動:
E:\SAVE\B01\setupdata\b01_20100101_1.txt
E:\SAVE\B01\setupdata\b01_20100101_2.txt  
移動至 \SAVE\B01\20100101\ 資料夾內  
..
..
E:\SAVE\B02\setupdata\b01_20100101_1.txt
E:\SAVE\B02\setupdata\b01_20100101_2.txt  
移動至 \SAVE\B02\20100101\ 資料夾內

GBKEE

回復 1# tomking
移動:
E:\SAVE\B01\setupdata\b01_20100101_1.txt
E:\SAVE\B01\setupdata\b01_20100101_2.txt
E:\SAVE\B02\20100101\                     <-未何沒有 setupdata 看不懂
E:\SAVE\B02\20100102\