学步园

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