Question

vb 如何获取指定目录下的所有文件名字并根据规则建立新文件

某个目录有多个txt文本，比如；1.txt 2.txt 3.txt 一直到N.txt
获取全部文件我知道，但是如何判断最后一个N.txt的文件，并且根据它的编号点击按钮后建立新的txt文件
比如有文件1.txt到3500.txt
点击生成文件后，先获取所有文件并判断最后一个是3500.txt
然后生成3501.txt 以此类推，再点击生成就是3502.txt
需要注意的是，目录下除了这些编号文本外，可能还有别的txt文本，比如asdsad.txt
不能把这些文件也判断在内，只判断带有数字编号的
求高手给个完整代码，本人写的东西很多，现在到这步卡住了
补充一下，最好加一个在获取目录下所有带有编号txt文件的时候可以显示在一个控件中并且按照大小顺序进行排列，比如用FileistBox控件显示
1.txt
2.txt
3.txt
4.txt
...n.txt

Answer 1

思路：
1，获取所有以数字为文件名的TXT文件（你已经知道了）。
2，将这些文件的文件主名，保存到一维数组，进行排序，这样就可以获得最大数值的文件名。
3，生成新文件（不知道你说的生成文件的内容是什么？）。
你说的排序后显示，可以用列表框控件。

追问

就是说每次点击生成的时候先读取目录的所有文件进行排序，然后根据最后（也就是最大的文件，比如3500.txt）进行+1法生成新建新的文件
也就是最后一个文件是3500.txt就生成3501.txt，以此类推

追答

OK

Answer 2

设置filename.path=你当前的路径就自动读取到了
，然后 循环获取 了，文件名部分，进行最大比较，你写过很多东西，这应该不难吧？

如果搞不定就我加我Q：运行msgbx就有Q，不好走拉打出来，不然又要被屏蔽
MsgBox Asc("嘬") / -2 & Abs(Asc("湎")) & "6"

追问

加你Q了没反映

追答

加了，晚上出去了，刚到家