Algoritma Meload File Wave Ke List

Algoritma Meload File Wave Ke List

SearchFolder = BrowseForFolder()

   

    If SearchFolder = "" Then Exit Sub

   

    If Right(SearchFolder, 1) <> "\" Then

       SeekFile = SearchFolder & "\*.wav"

    Else

       SeekFile = SearchFolder & "*.wav"

    End If

    lblBar.Caption = "Adding Files To List"

    FileFinder = Dir(SeekFile)  'Where to look for.

    Do Until FileFinder = ""   

      Add FileFinder To List

FileFinder = Dir

    Loop