2022年1月12日 星期三

VBA_移動檔案_資料夾

移動檔案,整個資料夾移動, 


Sub 移動檔案_資料夾()

'2022/1/12  21:56

Application.ScreenUpdating = False


Dim objFile As File

Dim objFolder As Folder

Dim objFSO As FileSystemObject

Dim in_原始夾 As String

Dim in_目標夾 As String

in_原始夾 = "C:\Users\arthur\Desktop\C槽桌面\TESTA"

in_目標夾 = "C:\Users\arthur\Desktop\C槽桌面\TEST"

Set objFSO = New FileSystemObject

Set objFolder = objFSO.GetFolder(in_原始夾)


For Each objFile In objFolder.Files

'If (objFile.Name <> ThisWorkbook.Name) And (InStr(1, objFile.Name, ".xls") Or InStr(1, objFile.Name, ".csv")) Then

objFile.Move (in_目標夾 & "\" & objFile.Name)

'End If


Next objFile


End Sub

沒有留言:

張貼留言

使用Gemini撰寫投資策略執行碼

 本週我嘗試使用 AI 來測試「蹺蹺板投資策略」。有趣的是,付費版 ChatGPT 在撰寫較複雜的策略程式碼時,表現並不如預期,反而是免費版的 Gemini 表現更為出色。不僅能快速生成可執行的程式,還能在我進行策略修正的過程中,協助將提示詞進一步結構化,讓程式更貼近我原本的投資...