返回列表 上一主題 發帖

[發問] 將全部的子資料夾歸納到總資料夾內

[發問] 將全部的子資料夾歸納到總資料夾內

本帖最後由 ziv976688 於 2021-10-19 03:23 編輯

附件 : TEST_1019.rar (485.91 KB)
備註:
1_本例共有3個資料夾(最多有98個)~
7C_0_1902期_50_1888_10+1860-1870_10_1次_1-49(內有11個子資料夾)
7C_0_1902期_50_1900_10+1880-1886_10_1次_1-49(內有7個子資料夾)
7C_0_1902期_50_1901_10+1894-1900_10_1次_1-49(內有7個子資料夾)

2_程式編寫的流程請解題者擇宜制定。謝謝!

需求:
1_請將上述的各資料夾(共25個)剪下~貼到新的資料夾內~歸納成1個總資料夾

2_總資料夾名稱 = 7C_0_1902期_50_1901_10+1888_10+1860-1870_10_1次_1-49
即擷取上述最下方7C_0_1902期_50_1901_10+1894-1900_10_1次_1-4資料夾的前半段名稱
和擷取上述最上方7C_0_1902期_50_1888_10+1860-1870_10_1次_1-49資料夾的後半段名稱

3_移除上述已經清空的3個資料夾。

以上  懇請賜教!  謝謝!



下方的壓縮檔是誤植的~請無須理會~謝謝 !

TEST_1019.rar (726.34 KB)

回復 1# ziv976688


總資料夾名稱 = 7C_0_1902期_50_1901_10+1888_10+1860-1870_10_1次_1-49
即擷取上述最下方7C_0_1902期_50_1901_10+1894-1900_10_1次_1-4資料夾的前半段名稱
和擷取上述最上方7C_0_1902期_50_1888_10+1860-1870_10_1次_1-49資料夾的後半段名稱
>> 1. 請問前半段名稱 + 後半段名稱,是以"+ " 作為區分吧?  
2. 如果是的話,請問哪個檔案為前半段哪個為後半段檔案?

TOP

本帖最後由 ziv976688 於 2021-10-19 09:39 編輯

回復 2# samwang
1. 請問前半段名稱 + 後半段名稱,是以"+ " 作為區分吧?  
是的 !  謝謝您 !

2. 如果是的話,請問哪個檔案為前半段哪個為後半段檔案?
我是以目前備註 : 3個資料夾~擷取最下方的資料夾名稱和最上方資料夾的名稱~藍顏色的段落為前段綠顏色的為後段

>>>如果您是要總資料夾內的25個子資料夾之名稱做擷取的話~
則也是選擇最下方子資料夾並擷取其名稱之前半段最上方子資料夾並擷取其名稱之後半段~
總資料夾名稱=
其內的最下方子資料夾 : 7C_0_1902期_50_1901-10+1900-10_1次_1-49之前半段名稱

最上方的子資料夾 : 7C_0_1902期_50_1888-10+1860-10_1次_1-49後半段名稱
即本例的總資料夾名稱=7C_0_1902期_50_1901-10+1888-10+1860-10_1次_1-49
謝謝您 !

TOP

回復 3# ziv976688

如附件,請測試看看,謝謝

TEST_主檔_1019.zip (53.95 KB)

TOP

本帖最後由 ziv976688 於 2021-10-19 11:23 編輯

回復 4# samwang
煩請再補充移除清空後的各資料夾第3個需求
謝謝您

TOP

回復 5# ziv976688

煩請再補充移除清空後的各資料夾之第3個需求。
>> 新增1列如紅字,謝謝

'搬移檔案
For i = 1 To n
    Set f = fs.GetFolder(Ar(i, 1))
    Set fc = f.SubFolders
    For Each f1 In fc
        If f1.Path = NewFolder Then GoTo 99
        FName1 = f1.Path:   FName2 = NewFolder & "\" & f1.Name
        fs.MoveFolder FName1, FName2
99: Next f1
    If Ar(i, 1) <> NewFolder Then fs.DeleteFolder Ar(i, 1)
Next i

TOP

回復 6# samwang
OK了
萬分感謝您的耐心指導~感恩

TOP

回復 6# samwang
附件 : TEST_1020.rar (163.82 KB)
不好意思~還有1個最終問題~請您指導。謝謝您!

輸入指定內容到它檔執行的語法。
TEST_1020(主檔)
需求:

1_A2(含)以下不能="";B2(含)以下可以=""。

2_A2=""時,則不執行,並跳出提示訊息(MsgBox)。

3_當將A2和B2的同列數字~同時往下逐列依序填入(7C_3Stage-0-7)之RrngA和 RrngB的InputBox後,
則(7C_3Stage-0-7)之RrngA和 RrngB的InputBox~可依填入的數字,逐次執行。

4_當A2以下=""時,則結束執行。

以上  懇請賜教!  謝謝您!

TOP

回復 6# samwang
samwang大大 :
8樓的附件有bug~請無須理會~謝謝 !

請下載新附件 : TEST_1020.rar (164.94 KB)
懇請賜教!  謝謝您

TOP

回復 8# ziv976688

不好意思,後學才疏學淺,可能請您再換一種方式解釋一下需求結果等等,謝謝

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題