PTT數位生活區 / EZsoft (小軟體)

[請問] vbs程序呼叫或引數不正確

看板EZsoft (小軟體)作者時間1年前 (2023/04/12 12:09), 1年前編輯推噓0(0推 0噓 11→)
留言11則, 3人參與, 1年前最新討論串1/1
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://www.ptt.cc/bbs/EZsoft/M.1681272564.A.F45.html ※ 編輯: vernc (36.239.39.192 臺灣), 04/12/2023 12:15:34
→
04/12 21:11, 1年前 , 1F
可以請chatgpt幫你debug
04/12 21:11, 1F
→
04/12 22:39, 1年前 , 2F
我不會VB 這好像也不算小軟體版的業務 但看起來有可能是
04/12 22:39, 2F
→
04/12 22:39, 1年前 , 3F
files.Item已經沒有物件了你還取0就直接錯誤
04/12 22:39, 3F
→
04/13 11:18, 1年前 , 4F
樓上是錯誤的，前一行有用if判斷集合內有物件才會進去
04/13 11:18, 4F
→
04/13 11:18, 1年前 , 5F
VBA裡面你用FileSystemObject取到的File Collection
04/13 11:18, 5F
→
04/13 11:19, 1年前 , 6F
不可以用索引進行存取，鍵值是檔案路徑的字串
04/13 11:19, 6F
→
04/13 11:20, 1年前 , 7F
我不會VB，所以我只會用笨蛋解法
04/13 11:20, 7F
→
04/13 11:21, 1年前 , 8F
你原先程式碼取得File Collection後，使用Foreach方式
04/13 11:21, 8F
→
04/13 11:21, 1年前 , 9F
將每個檔案放到自己額外宣告的Collection物件即可
04/13 11:21, 9F
→
04/13 11:22, 1年前 , 10F
另外記得你如果要用索引存取，是從1開始，不是從0
04/13 11:22, 10F
→
04/13 11:24, 1年前 , 11F
04/13 11:24, 11F
※ 編輯: vernc (114.40.233.216 臺灣), 04/19/2023 14:00:47
‣ 更多 vernc 的文章
文章代碼(AID): #1aDYxqz5 (EZsoft)
EZsoft 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 vernc 的文章
文章代碼(AID): #1aDYxqz5 (EZsoft)