Dim fso, folder, files
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("R:\e") ' 取代為目標目錄的路徑
Set files = folder.Files
msgbox files.Count
If files.Count > 0 Then ' 檢查目錄下是否有檔案
files(files.Count - 1).Delete ' 刪除目錄下最後一個檔案
End If
Set files = Nothing
Set folder = Nothing
Set fso = Nothing
GPT寫的，第8行出問題
WScript.Echo files.Item(0).Name
上面這行也"程序呼叫或引數不正確"
那位教是那出錯？
thx

問chatGPT 可能比較快

出在 Nothing

Nothing 沒宣告？

https://reurl.cc/RvEN3g folder.Files回傳的是collection？

在你這篇回你了 #1aDYxqz5 (EZsoft)

ChatGPT是可以一直問下去的，你就跟他說這一行有問題，或者叫他換一種寫法，他就會改給你了，你就一直問他直到ok為止