其实国外vb源码分享网站的问题并不复杂，但是又很多的朋友都不太了解源码下载，因此呢，今天小编就来为大家分享国外vb源码分享网站的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！
在窗体上画一个按钮，输入以下VB源代码，运行后点击按钮，就会在窗体上输出C盘下所有文件名。
PrivateSubCommand1_Click()
DimdAsNewCollection&34;C:\\*.*&39;返回C盘目录下第一个文件，这里可改成别的文件夹名
d.Addf&34;&39;循环查找所有文件
f=Dir
d.Addf&39;清屏，然后在窗体上输出所有文件名
ForEachfInd
Fori=1ToLen(f)
IfLeft(Right(f,i),1)=&34;ThenExit
IfInStr(f,&34;)<>0Then
IfInStr(f,&34;)<>0OrInStr(f,&34;)OrInStr(f,&34;)Then
f=Left(f,Len(f)-i)
End
Printf
Next
EndSub
EndIf
EndIf
Printf
OK，本文到此结束，希望对大家有所帮助。