vbnbsp;如何读取某目录下所有文件及子文件夹如题 谢谢了

发布网友 发布时间：2024-02-12 16:54

我来回答

共1个回答

热心网友 时间：2024-08-18 08:21

查找某目录下所有nbsp;文件nbsp;及nbsp;子文件夹试一试不用nbsp;FileSystemObjectnbsp;对象，只用基本控件的代码。‘例子需控件：Command1，List1，List2，File1，Dir1，都采用默认属性。‘例如，查找nbsp;C:nbsp;，带nbsp;‘**nbsp;的语可修改nbsp;nbsp;nbsp;nbsp;Dimnbsp;ctFindnbsp;Asnbsp;Booleannbsp;nbsp;nbsp;nbsp;Privatenbsp;Subnbsp;Form_Load()nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Me.Captionnbsp;=nbsp;“查找所有文件及文件夹“nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Command1.Captionnbsp;=nbsp;“查找“nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;List2.Visiblenbsp;=nbsp;False:nbsp;File1.Visiblenbsp;=nbsp;False:nbsp;Dir1.Visiblenbsp;=nbsp;Falsenbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Label1.Captionnbsp;=nbsp;“就绪“nbsp;nbsp;nbsp;nbsp;Endnbsp;Subnbsp;nbsp;nbsp;nbsp;Privatenbsp;Subnbsp;Form_Unload(Cancelnbsp;Asnbsp;Integer)nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;nbsp;nbsp;nbsp;Endnbsp;Subnbsp;nbsp;nbsp;nbsp;Privatenbsp;Subnbsp;Form_Resize()nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Dimnbsp;Wnbsp;Asnbsp;Longnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Onnbsp;Errornbsp;Resumenbsp;Nextnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Wnbsp;=nbsp;720nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;List1.Movenbsp;0,nbsp;0,nbsp;Me.ScaleWidthnbsp;-nbsp;Wnbsp;-nbsp;120,nbsp;Me.ScaleHeightnbsp;-nbsp;300nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Command1.Movenbsp;Me.ScaleWidthnbsp;-nbsp;Wnbsp;-nbsp;60,nbsp;300,nbsp;Wnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Label1.Movenbsp;90,nbsp;Me.ScaleHeightnbsp;-nbsp;255,nbsp;Screen.Width,nbsp;255nbsp;nbsp;nbsp;nbsp;Endnbsp;Subnbsp;nbsp;nbsp;nbsp;Privatenbsp;Subnbsp;Command1_Click()nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ctFindnbsp;=nbsp;Notnbsp;ctFindnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;ctFindnbsp;Thennbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Command1.Captionnbsp;=nbsp;“取消“nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Callnbsp;FindDirFile(“C:“)nbsp;‘**查找nbsp;C:nbsp;下的所有文件和目录，或nbsp;C:Windowsnbsp;等nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Command1.Captionnbsp;=nbsp;“查找“nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Elsenbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Command1.Captionnbsp;=nbsp;“查找“nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Endnbsp;Ifnbsp;nbsp;nbsp;nbsp;Endnbsp;Subnbsp;nbsp;nbsp;nbsp;Privatenbsp;Subnbsp;FindDirFile(ByValnbsp;nPathnbsp;Asnbsp;String)nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Dimnbsp;Inbsp;Asnbsp;Long,nbsp;nDirnbsp;Asnbsp;String,nbsp;Cinbsp;Asnbsp;Longnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;ctFindnbsp;=nbsp;Truenbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;List1.Clear:nbsp;List2.Clearnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;Right(nPath,nbsp;1)nbsp;amp;lt;amp;gt;nbsp;““nbsp;Thennbsp;nPathnbsp;=nbsp;nPathnbsp;amp;nbsp;““nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;List1.AddItemnbsp;“查找nbsp;“nbsp;amp;nbsp;nPath:nbsp;List2.AddItemnbsp;nPathnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;File1.Patternnbsp;=nbsp;“*“nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;File1.Systemnbsp;=nbsp;True:nbsp;File1.Hiddennbsp;=nbsp;True:nbsp;File1.ReadOnlynbsp;=nbsp;Truenbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Onnbsp;Errornbsp;GoTonbsp;Cuonbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Dir1.Pathnbsp;=nbsp;nPathnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Onnbsp;Errornbsp;GoTonbsp;0nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Donbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;List2.ListCountnbsp;=nbsp;0nbsp;Thennbsp;Exitnbsp;Donbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nPathnbsp;=nbsp;List2.List(0)nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;List2.RemoveItemnbsp;0nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Dir1.Pathnbsp;=nbsp;nPathnbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Fornbsp;Inbsp;=nbsp;0nbsp;Tonbsp;Dir1.ListCountnbsp;-nbsp;1nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;GoSubnbsp;ShowGenbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nDirnbsp;=nbsp;Dir1.List(I)nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Ifnbsp;Right(nDir,nbsp;1)nbsp;amp;lt;amp;gt;nbsp;““nbsp;Thennbsp;nDirnbsp;=nbsp;nDirnbsp;amp;nbsp;““nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;List1.AddItemnbsp;“■“ 查看原帖>>

麻烦采纳，谢谢!