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/cn.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