遍历指定文件下所有的文件夹和文件的路径，文件名，修改日期，类型

Imports System.IO
Public Class ファイル選択
    Dim a As Integer
    Dim Files() As String
    Dim FilesArray As New ArrayList
    Dim FilesInfo As New ArrayList
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub
    Private Sub TransFiles(ByVal strDirect As String)
        Try
            If Not (strDirect Is Nothing) Then
                Dim mFileInfo As System.IO.FileInfo
                Dim mDir As System.IO.DirectoryInfo
                Dim mDirInfo As New System.IO.DirectoryInfo(strDirect)
                For Each mFileInfo In mDirInfo.GetFiles() '取文件夹目录
                    Debug.Print(mFileInfo.FullName)
                    'FilesArray.Add(mFileInfo.FullName + "   大小:  " + (Int(mFileInfo.Length.ToString / 1024) + 1).ToString + "kb" + "  最后修改时间: " + mFileInfo.LastWriteTime.ToString())
                    FilesInfo.Add(mFileInfo)
                Next
                For Each mDir In mDirInfo.GetDirectories '取文件夹
                    TransFiles(mDir.FullName)
                Next
            End If
        Catch ex As Exception


        End Try


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If String.IsNullOrEmpty(TextBox1.Text) Then
            MessageBox.Show("目標選択してください！！")
            TextBox1.Focus()
            Return
        End If
        If Not System.IO.Directory.Exists(TextBox1.Text) Then
            MessageBox.Show("目標不正！！")
            TextBox1.Focus()
            TextBox1.Select()
            Return
        End If
        FileView.Items.Clear() 'clear
        FilesInfo.Clear()
        TransFiles(TextBox1.Text)
        Dim listitem As ListViewItem
        Dim indexile As Integer = 0
        indexile = TextBox1.Text.LastIndexOf("\")
        Dim fieselename As String = TextBox1.Text.Substring(0, indexile)
        For a = 0 To FilesInfo.Count - 1
            indexile = CType(FilesInfo.Item(a), System.IO.FileInfo).FullName.LastIndexOf("\")
            listitem = FileView.Items.Add(CType(FilesInfo.Item(a), System.IO.FileInfo).FullName.Replace(CType(FilesInfo.Item(a), System.IO.FileInfo).Name.ToString, "").Replace(fieselename, ""))
            listitem.SubItems.Add(CType(FilesInfo.Item(a), System.IO.FileInfo).Name)
            listitem.SubItems.Add(Format(CType(CType(FilesInfo.Item(a), System.IO.FileInfo).LastWriteTime.ToString(), Date), "yyyy/mm/dd hh:mm"))
            listitem.SubItems.Add((Int(CInt(CType(FilesInfo.Item(a), System.IO.FileInfo).Length.ToString) / 1024) + 1).ToString)
            Dim indexPosint As Integer = CType(FilesInfo.Item(a), System.IO.FileInfo).Name.ToString.IndexOf(".")
            listitem.SubItems.Add(CType(FilesInfo.Item(a), System.IO.FileInfo).Name.Substring(indexPosint + 1))
        Next
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath()
        End If
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub


    Private Sub btn_csv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_csv.Click
        Dim filestream As StreamWriter
        If String.IsNullOrEmpty(csvpath.Text) Then
            MessageBox.Show("CSV標選択してください！！")
            Return
        End If
        Dim w_filePath As String = csvpath.Text
        Dim w_filename As String = "CSV一覧" + Format(Now(), "yyyymmddhhmmss") + ".csv"
        filestream = createCsvFile(w_filePath & w_filename)
        'CSV明細を設定
        Call writeCsvDetail(filestream)
        filestream.Flush()
        filestream.Close()
        'MessageBox.Show("CSV出力完了詳細: " + w_filePath & w_filename + "参照してください！！！")
        Dim Message As String = "CSV出力完了詳細: " + w_filePath & w_filename + "参照しますか？"
        Dim Caption As String = "Error Detected in Input"
        Dim Buttons As MessageBoxButtons = MessageBoxButtons.YesNo
        Dim Result As DialogResult
        Result = MessageBox.Show(Message, Caption, Buttons)
        If Result = System.Windows.Forms.DialogResult.Yes Then
            Dim obj_xls As Object
            obj_xls = CreateObject("Excel.Application")
            obj_xls.displayAlerts = False
            obj_xls.Application.Visible = True
            Call obj_xls.workbooks.open(w_filePath & w_filename)         '打开ＣＳＶ
        End If
    End Sub
    Private Function createCsvFile(ByVal path As String) As StreamWriter
        Dim filestream As StreamWriter = Nothing
        Try
            If (System.IO.File.Exists(path)) Then
                System.IO.File.Delete(path)
            End If
            filestream = New StreamWriter(path, True, System.Text.UnicodeEncoding.Default)
            Return filestream
        Catch ex As Exception
            If Not IsNothing(filestream) Then
                filestream.Close()
            End If
            Throw ex
        Finally
        End Try
    End Function
    Private Sub writeCsvDetail(ByVal fs As StreamWriter)
        Dim indexPos As Integer = 0
        Dim indexile As Integer = 0
        indexile = TextBox1.Text.LastIndexOf("\")
        Dim fieselename As String = TextBox1.Text.Substring(0, indexile)
        fs.Write("完全名前,名前,サイズ,更新時間,種類")
        fs.Write(vbCrLf)
        For a = 0 To FilesInfo.Count - 1
            fs.Write(vbTab & CType(FilesInfo.Item(a), System.IO.FileInfo).FullName.ToString.Replace(CType(FilesInfo.Item(a), System.IO.FileInfo).Name.ToString, "").Replace(fieselename, ""))
            fs.Write(",")
            fs.Write(vbTab & CType(FilesInfo.Item(a), System.IO.FileInfo).Name)
            fs.Write(",")
            fs.Write(vbTab & (Int(CInt(CType(FilesInfo.Item(a), System.IO.FileInfo).Length.ToString) / 1024) + 1).ToString)
            fs.Write(",")
            fs.Write(vbTab & Format(CType(CType(FilesInfo.Item(a), System.IO.FileInfo).LastWriteTime.ToString(), Date), "yyyy/mm/dd hh:mm"))
            fs.Write(",")
            indexPos = CType(FilesInfo.Item(a), System.IO.FileInfo).Name.ToString.IndexOf(".")
            fs.Write(vbTab & CType(FilesInfo.Item(a), System.IO.FileInfo).Name.Substring(indexPos + 1))
            fs.Write(",")
            fs.Write(vbCrLf)
        Next
    End Sub


    Private Sub CsvSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CsvSelect.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            csvpath.Text = FolderBrowserDialog1.SelectedPath()
        End If
    End Sub
    'Private Sub filedisplay_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filedisplay.SelectedIndexChanged
    '    Dim curFileDir As String
    '    Dim indexPos As Integer
    '    Dim pr As Process = New Process
    '    pr.StartInfo.FileName = "explorer.exe"
    '    indexPos = Me.filedisplay.SelectedItem.ToString.LastIndexOf("\")
    '    curFileDir = Me.filedisplay.SelectedItem.ToString.Substring(0, indexPos)
    '    pr.StartInfo.Arguments = Chr(34) & curFileDir & Chr(34)
    '    pr.Start()
    'End Sub


    '    Private Sub FileView_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileView.SelectedIndexChanged
    '        'Dim curFileDir As String
    '        'Dim indexPos As Integer
    '        'Dim pr As Process = New Process
    '        'pr.StartInfo.FileName = "explorer.exe"
    '        ''indexPos = Me.filedisplay.SelectedItem.ToString.LastIndexOf("\")
    '        ''curFileDir = Me.filedisplay.SelectedItem.ToString.Substring(0, indexPos)
    '        ''pr.StartInfo.Arguments = Chr(34) & curFileDir & Chr(34)
    '        pr.Start()
    '    End Sub
End Class