https://pastebin.com/QZnVd1ky
完成了、最後還是靠google
看漫畫最後的漢化組宣傳頁很讓人出戲、就有了這東東
作者: vernc (cralvin) 看板: EZsoft
標題: [請問] vbs程序呼叫或引數不正確
時間: Wed Apr 12 12:09:22 2023
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
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.39.192 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/EZsoft/M.1681272564.A.F45.html
※ 編輯: vernc (36.239.39.192 臺灣), 04/12/2023 12:15:34
1F：→ eva19452002: 可以請chatgpt幫你debug 04/12 21:11
2F：→ spfy: 我不會VB 這好像也不算小軟體版的業務 但看起來有可能是 04/12 22:39
3F：→ spfy: files.Item已經沒有物件了你還取0就直接錯誤 04/12 22:39
4F：→ kobe8112: 樓上是錯誤的，前一行有用if判斷集合內有物件才會進去 04/13 11:18
5F：→ kobe8112: VBA裡面你用FileSystemObject取到的File Collection 04/13 11:18
6F：→ kobe8112: 不可以用索引進行存取，鍵值是檔案路徑的字串 04/13 11:19
7F：→ kobe8112: 我不會VB，所以我只會用笨蛋解法 04/13 11:20
8F：→ kobe8112: 你原先程式碼取得File Collection後，使用Foreach方式 04/13 11:21
9F：→ kobe8112: 將每個檔案放到自己額外宣告的Collection物件即可 04/13 11:21
10F：→ kobe8112: 另外記得你如果要用索引存取，是從1開始，不是從0 04/13 11:22
※ 編輯: vernc (114.40.233.216 臺灣), 04/19/2023 14:00:47