Dim DirInfo As DirectoryInfo = New DirectoryInfo(sPath) Dim FInfo() As FileInfo FInfo = DirInfo.GetFiles Dim F(FInfo.Length) As String Dim tmpFInfo As FileInfo Dim i As Integer = 0 For Each tmpFInfo In FInfo F(i) = tmpFInfo.Name MsgBox(F(i)) Next vb实现查找某一文件夹下所有的文件 sPath是指定的文件夹路径
Read more