Public Shared Function List(ByVal dirToList As String) As String()
        Dim dir As DirectoryInfo = New DirectoryInfo(dirToList)
        Dim myFiles() As FileInfo
        Dim i As Integer
        Dim arr() As String
        myFiles = dir.GetFiles()
        ReDim arr(myFiles.LongLength)
        For i = 0 To myFiles.Length - 1
            arr(i) = myFiles(i).Name
        Next
        Return arr
    End Function