这句vb语句是什么意思

Do
If fname = "" Then Exit Do
List1.AddItem fname
fname = Dir()
Loop

这个应该是个文件搜索

第一次执行dir的时候需要给参数，dir *.txt，如果搜索到文件则返回文件名，否则返回空字符串

如果有多个文件的话，下次再执行dir就不需要给定参数，也就是你现在的这个代码实现的。判断返回的文件名是否为空，不是则加入到list1列表里

在这句的前边应该还有一句，

fname = Dir(filename, 参数值)，

参数值是指要查找的类型，比如是文件，还是文件夹之类的，然后通过Dir来获取到一个这样类型的文件传给

fname，由于这样类型的文件有很多，而Dir一次只能返回一个，其他的都在Dir虚拟存储地址中存储着

Do If fname = "" Then Exit Do List1.AddItem fname fname = Dir() Loop

fname = Dir()这句话就是返回Dir虚拟地址中的一个内容给fname，Dir虚拟地址的结构有些像数据库表，一条一条的，每发返回一个记录索引向下移动一个，当Dir()中没有了，就返回空，通过If fname = "" Then Exit Do 这句来判断，当为空的时候就说明没有文件了，否则就获取一个文件名给fname，并把fname的值存到List1中

fname 没有值就跳出循环，有值就加到LIST1里

如果fname为空，则退出。然后重新输入。