帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-10-19 03:03 | 只看該作者

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

本帖最後由 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)

樓主熱帖

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

2^#

發表於 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. 如果是的話，請問哪個檔案為前半段哪個為後半段檔案?

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

3^#

發表於 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
謝謝您 !

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

4^#

發表於 2021-10-19 11:04 | 只看該作者

回復 3# ziv976688

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

TEST_主檔_1019.zip (53.95 KB)

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

5^#

發表於 2021-10-19 11:19 | 只看該作者

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

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

6^#

發表於 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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

7^#

發表於 2021-10-19 12:38 | 只看該作者

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

TOP

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

8^#

發表於 2021-10-20 02:00 | 只看該作者

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

ziv976688