Board logo

標題: [發問] 將全部的子資料夾歸納到總資料夾內 [打印本頁]
作者: ziv976688    時間: 2021-10-19 03:03     標題: 將全部的子資料夾歸納到總資料夾內

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

附件 : [attach]34237[/attach]
備註：
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個資料夾。

以上  懇請賜教！  謝謝！


下方的壓縮檔是誤植的~請無須理會~謝謝 !
作者: samwang    時間: 2021-10-19 08:07

回復 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. 如果是的話，請問哪個檔案為前半段哪個為後半段檔案?
作者: ziv976688    時間: 2021-10-19 09:14

本帖最後由 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
謝謝您 !
作者: samwang    時間: 2021-10-19 11:04

回復 3# ziv976688

如附件，請測試看看，謝謝
作者: ziv976688    時間: 2021-10-19 11:19

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

回復 4# samwang
煩請再補充移除清空後的各資料夾之第3個需求。
謝謝您
作者: samwang    時間: 2021-10-19 12:04

回復 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
作者: ziv976688    時間: 2021-10-19 12:38

回復 6# samwang
OK了
萬分感謝您的耐心指導~感恩
作者: ziv976688    時間: 2021-10-20 02:00

回復 6# samwang
附件 : [attach]34241[/attach]
不好意思~還有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以下=""時，則結束執行。

以上  懇請賜教！  謝謝您！
作者: ziv976688    時間: 2021-10-20 03:38

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

請下載新附件 : [attach]34243[/attach]
懇請賜教！  謝謝您
作者: samwang    時間: 2021-10-20 07:10

回復 8# ziv976688

不好意思，後學才疏學淺，可能請您再換一種方式解釋一下需求結果等等，謝謝
作者: ziv976688    時間: 2021-10-20 10:03

本帖最後由 ziv976688 於 2021-10-20 10:24 編輯
回復  ziv976688

不好意思，後學才疏學淺，可能請您再換一種方式解釋一下需求結果等等，謝謝
samwang 發表於 2021-10-20 07:10

重新說明如附件~[attach]34244[/attach]
如有不明白的地方~請不吝再提出~謝謝您

PS :
因為~
1_本題的需求只是想要藉TEST_1020(主檔)的輔助~將其A欄和B欄的指定數字往下逐列依序~自動填入(7C_3Stage-0-7)之RrngA和 RrngB的InputBox，
且讓(7C_3Stage-0-7)也是能自動依序逐次完成執行的動作~直到TEST_1020(主檔)的A2=""時結束。

2_如果要列出效果檔會很多~超出上傳的限定容量。
所以~
沒有附上效果檔的範例~尚請見諒~謝謝 !
作者: samwang    時間: 2021-10-20 10:14

回復 11# ziv976688

往下逐列依序依次填入(7C_3Stage-0-7)之RrngA和 RrngB的InputBox內，
>> 要做什麼動作? 什麼是RrngA和 RrngB的InputBox內??
作者: ziv976688    時間: 2021-10-20 11:19

本帖最後由 ziv976688 於 2021-10-20 11:42 編輯

回復 12# samwang
先修正附件TEST_1020(主檔)的筆誤~
請將D7的都必須> 改為都必須<
謝謝 !

其它需要再補充的地方~容末學再想想~謝謝您
作者: ziv976688    時間: 2021-10-20 20:35

回復 12# samwang
詳如附件 : [attach]34254[/attach]

想來想去~本題還是以最原始的方式重新作說明~比較能讓人明瞭~
請先看7C_3Stage-0-7-Q-1的說明~謝謝您
作者: samwang    時間: 2021-10-21 07:37

回復 14# ziv976688

不好意思，一直讓您費心一而再的解釋需求，後學終於了解您的問題與需求了，
如果知道問題在哪，應該從那裏解決，不是又用另一個來解決，因為有可能又延生其他問題，
說實在看了7C_3Stage-0-7程式，真的太複雜了，程式不是自己寫的，要別人去改真的不容易，
除非原來程式架構分得很明確且又有簡易註解，這樣才有可能，
比如像後學自己習慣，如果是比較複雜，就會分模組且備註功能，最後用主程式call 模組，這樣以利後續新增或修改，
不好意思，一直浪費您的時間和造成您的困擾，這個問題好學才疏學淺可能無法解決，
可能需要請其他前輩幫忙解決了，謝謝
作者: ziv976688    時間: 2021-10-21 12:57

本帖最後由 ziv976688 於 2021-10-21 13:02 編輯

回復 15# samwang
Samwang大大 :
您太客氣了 !您已經幫末學很多了~感恩

最後想請教您 :
以第4項的解決方法是否可行?
謝謝您
作者: samwang    時間: 2021-10-21 14:42

回復 16# ziv976688

以第4項的解決方法是否可行?
>> 不好意思，如16#所提到，已超出後學能力，謝謝。
作者: ziv976688    時間: 2021-10-21 15:03

回復 17# samwang
謝謝您的耐心回覆
作者: jackyq    時間: 2021-10-21 15:32

樂透可以
無限遐想
天馬行空
無盡方案
永無止盡
自學程式
花錢代寫
方是正途
作者: ziv976688    時間: 2021-10-21 17:28

回復 19# jackyq
邊問邊學
尚待努力中
謝謝關注



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