سلام
با تشکر فراوان از آقای محمدی,به خاطر راهنمایی ها شون.
یه روش ساده واسه این کار پیدا کردم.
مثلا می خوایم مشخصات و نوع دقیق فورمت یه فایل Wav رو بدونیم,اول از همه:
کد:
Private Type WAVEFMT
signature As String * 4 ' must contain 'RIFF'
RIFFsize As Long ' size of file (in bytes) minus 8
type As String * 4 ' must contain 'WAVE'
fmtchunk As String * 4 ' must contain 'fmt ' (including blank)
fmtsize As Long ' size of format chunk, must be 16
format As Integer ' normally 1 (PCM)
channels As Integer ' number of channels, 1=mono, 2=stereo
samplerate As Long ' sampling frequency: 11025, 22050 or 44100
average_bps As Long ' average bytes per second; samplerate * channels
align As Integer ' 1=byte aligned, 2=word aligned
bitspersample As Integer ' should be 8 or 16
datchunk As String * 4 ' must contain 'data'
samples As Long 'number of samples
End Type
با این کار یه چیزی تو مایه های یه Class درست کردیم,بعد:
کد:
Dim WavDat As WAVEFMT
این کار رو هم بعد از تعریف کلاس واسه اختصاص دادن حافظه و در نهایت در روال برنامه :
کد:
Open Address For Binary As #1
Get #1, , WavData
close #1
و متغییر های تعریف شده در کلاس مقدار های مربوط به فایلمون رو درون خودشون ذخیره می کنن