【求助】一个WAV文件头的问题，有空的朋友帮忙写个小程序，谢谢

Question

http://www.d4e.org/attachment.php?attachmentid=88041
你的这个连接进不去啊，得不到东西，要不然试一下。

Answer 1

已上传到 http://www.phpe.net/WAV.rar 谢谢帮忙

Answer 2

'这么简单的事还要人帮呀？不就是每个文件前的64个字节吗？用下面代码，一次搞定！使用前请自己备份，错了别怪我就行了！Option Explicit
Private UserCancel As Boolean
Private Sub Form_Load()
    Command1.Caption = "开始"
    Command2.Caption = "停止"
    Text1.Text = "模板文件名"
    Text2.Text = "查找文件夹"
End Sub
Private Sub Command2_Click()
    UserCancel = True
End Sub
Private Sub Command1_Click()
    Dim hd(63) As Byte, Fn As Long, path As String, s As String
    If Dir(Text1.Text) = "" Then Exit Sub
    Command1.Enabled = False
    UserCancel = False
    Fn = FreeFile
    Open Text1.Text For Binary As #Fn
        Get #Fn, , hd
    Close #1
    path = Text2.Text
    If Right$(path, 1) = "\" Then path = Left$(path, Len(path) - 1)
    s = Dir(path & "\*.wav")
    Do While s <> ""
        Open Text2.Text & "\" & s For Binary As #Fn
            Put #Fn, , hd
        Close #Fn
        DoEvents
        If UserCancel Then Exit Do
        s = Dir()
    Loop
    Command1.Enabled = True
End Sub

Answer 3

写错了一句
Open Text2.Text & "\" & s For Binary As #Fn
换成
Open path & "\" & s For Binary As #Fn

Answer 4

麻烦楼上的给编译成exe文件可以吗？我没有编译器，sorry，谢谢。[email protected]

Answer 5

感谢DRL的billholt帮忙，问题已完美解决，修复程序已经上传到 www.phpe.net/WaveRepair.zip 两天后删除，结贴，感谢所有关注的朋友。