ايران ويج

Function writehdr(fn As String, hdr As String)
'On Error GoTo er
sFilename = fn
' Get an available file number from the system
Nfilenum = FreeFile
' Open the file in binary mode. Locks are optional
Open sFilename For Binary Lock Read Write As #Nfilenum


' Put the data in the file
'For i = 0 To 2
' Chr$(48) & Chr(38) & Chr(178)
' No byte position is specified so writing begins at byte 1

Put #Nfilenum, , hdr

Close #Nfilenum

er:
If Err = 70 Then MsgBox "An error occure while trying access to video.Vedio may be in use by other programs or use in preview mode.Please restart program and" & vbCr & " try again without using privew mode.", vbCritical, "Error!"
End Function