タイトル : Re^3: ExcelVBAでWAVEファイルデータを表示 投稿日 : 2008/06/19(Thu) 18:31 投稿者 : 花ちゃん
ファイルサイズを取得するなら下記のようにしても取得できます。 Private Sub Command1_Click() Dim bin() As Byte Dim binLen As Long Dim strData As String Dim intFileNo As Integer intFileNo = FreeFile Open "c:\start.wav" For Binary As #intFileNo binLen = LOF(1) - 1 ReDim bin(binLen) Get #intFileNo, , bin Close #intFileNo strData = Right("00" & Hex(bin(5)), 2) & Right("00" & Hex(bin(4)), 2) Debug.Print CLng("&h" & strData) + 8 End Sub |