Algoritma Mengecek File Wave

Algoritma Mengecek File Wave

Function IsRiffWave(cFileName As String) As Boolean

    Dim FileIO As Integer

    Dim Buffer(11) As Byte

    Dim Header As String

    Dim chunk As String

    Dim i As Byte

    FileIO = FreeFile

    Open cFileName For Binary Access Read As #FileIO

   

    For i = 1 To 12

        Get #FileIO, i, Buffer(i - 1)

    Next i

    Close #FileIO

    For i = 0 To 3

      Header = Header & Chr(Buffer(i))

      chunk = chunk & Chr(Buffer(i + 8))

    Next i

    If Header = "RIFF" And chunk = "WAVE" Then IsRiffWave =

       True

End Function