Const ForReading = 1
Const ForWriting = 2
Const StrToSearch = "RIFF"
Const StrExt = "wav"

On Error Resume Next
Set objArgs = WScript.Arguments
If objArgs.Count <> 1 Then
WScript.Echo "1 argument requis :" & Chr(13) & Chr (10) & _
" filescript <sourcefile>" & Chr(13) & Chr (10) & _
" Le fichier de sortie portera le même nom, avec l'extension " & StrExt
WScript.Quit
End If
SrcFileName = objArgs(0)
Set objFSO = CreateObject("Scripting.FileSystemObject")
DstFileName = objFSO.GetParentFolderName(objFSO.GetAbsolutePathName(SrcFileName)) & _
"\" & objFSO.GetBaseName(SrcFileName) & "." & StrExt
Set BinFile = objFSO.OpenTextFile(SrcFileName,ForReading)
SearchedChar = 1
Do While BinFile.AtEndOfStream <> True
BinChar = BinFile.Read(1)
If BinChar = Mid(StrToSearch,SearchedChar,1) Then
SearchedChar = SearchedChar + 1
If SearchedChar > Len(StrToSearch) Then
ExportFile StrFileName
BinFile.Close
WScript.Quit
End If
End If
Loop
BinFile.Close
WScript.Echo "Sequence non trouvée"
Sub ExportFile(fName)
Set DstFile = objFSO.CreateTextFile(DstFileName,True)
DstFile.Write StrToSearch
Do While BinFile.AtEndOfStream <> True
DstFile.Write BinFile.Read(1)
Loop
DstFile.Close
End Sub