你目前寫到哪個步驟了? 應該不至於不知道要放哪裡

因為你沒有附上程式碼
提供你方向，你需要的步驟為:
1. 取得「A資料夾」所有的檔案GetFiles()，你也會需要用到迴圈For Each
2. 在迴圈裡「加上檔案時間判斷」介於2/10 ~ 4/28 的 有哪些
3. 條件成立時，在判斷將檔案 copy 到「B 資料夾」

Dim A As String = "C:\Users\28308\Desktop\新增資料夾 (1)" Dim B As String = "C:\Users\28308\Desktop\新增資料夾 (2)" Try Dim picList As String() = Directory.GetFiles(A, "*.jpg*") ' Copy 0L files. For Each f As String In picList 'Remove path from the file name. Dim fName As String = f.Substring(A.Length + 1) ' Use the Path.Combine method to safely append the file name to the path. ' Will overwrite if the destination file already exists. File.Copy(Path.Combine(A, fName), Path.Combine(B, fName), True) Next Catch dirNotFound As DirectoryNotFoundException Console.WriteLine(dirNotFound.Message) End Try

TO 彩虹
這是我參考網路上資訊 寫的複製檔案
執行結果為將新增資料夾(1)的所有jpg檔複製到新增資料夾(2)裡
以前我只想保留當天的檔案，所以我又用了刪除的方式，刪掉新增資料夾(2)裡 不是當天的所有檔案(算是偷吃步，這樣就不用在複製檔案裡加時間判斷了)
但現在我想指定時間，不知該如何使用時間 做判斷 請您再指教
謝謝

看你要用哪一種來做時間的判斷
1. Directory.GetCreationTime() 取得目錄的建立日期和時間。
2. Directory.GetLastAccessTime() 傳回指定檔案或目錄上次被存取的日期和時間。

以下範例用「建立時間」來判斷：
Dim A As String = "C:\Users\28308\Desktop\新增資料夾 (1)" Dim B As String = "C:\Users\28308\Desktop\新增資料夾 (2)" Try Dim picList As String() = Directory.GetFiles(A, "*.jpg*") ' Copy 0L files. For Each f As String In picList 'Remove path from the file name. Dim fName As String = f.Substring(A.Length + 1) ' 取得檔案建立時間 Dim fileCreateTime = Directory.GetCreationTime(f) ' 判斷日期 (時間有很多種判斷方式，這是集中一種) If fileCreateTime > "2019-02-10" And fileCreateTime < "2019-04-28" Then ' Use the Path.Combine method to safely append the file name to the path. ' Will overwrite if the destination file already exists. File.Copy(Path.Combine(A, fName), Path.Combine(B, fName), True) End If Next Catch dirNotFound As DirectoryNotFoundException End Try

希望有幫助到您

謝謝彩虹大大幫助
我後來採用Directory.GetLastWriteTime()
我原本以為要把要把日期放在file.copy()裡才能判斷

謝謝您的指導^^