Sub weizhi(ByVal path As String)
path = Me.TextBox1.Text
sfilesdir = "指定目录下包含:" + vbCrLf
arrflie = Directory.GetFiles(path)
For Each oneflie In arrflie
sfilesdir += oneflie + vbCrLf
Next
sfilesdir += "指定目录下包含:" + vbCrLf
arrsubs = Directory.GetDirectories(path)
For Each oneflie In arrsubs
sfilesdir += oneflie + vbCrLf
Next
TextBox2.Text = sfilesdir
End Sub
博客展示了一段代码,定义了一个名为weizhi的子程序,通过获取文本框中的路径,使用Directory类的方法分别获取该路径下的文件和子目录,并将结果显示在另一个文本框中。
2129

被折叠的 条评论
为什么被折叠?



