tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。