
「mcisendstring」により、WAVEファイルやMP3ファイルでは演奏時間が正確に取得できましたが、MIDIファイルでは正確に取得できませんでした。おそらく、MIDI特有のテンポなどの情報が関係しているのだと思いますが、対処方法が思い当たりません。
どなたか、教えて下さい。
(因みに VB6+WINDOUWS98SEの環境です。)
以下は、私のプログラム事例です。
'■GetLength
'■機能: ファイルの長さを秒単位で返す。
'■引数: FileName 対象のファイル名
Private Function GetLength(FileName As String) As Double
Dim RetBuffer As String * 20
Dim MCICommandString As String
MCICommandString = "status """ & FileName & """ length"
Call mciSendString("open """ & FileName & """", "", 0, 0)
Call mciSendString(MCICommandString, RetBuffer, Len(RetBuffer), 0)
Call mciSendString("close """ & FileName & """", "", 0, 0)
GetLength = Val(RetBuffer) / 1000
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
【ACCESS VBA】アクセスからデ...
-
「エクセルファイルが開いてい...
-
EXCEL VBA tif画像のプロパティ...
-
サブフォルダ含むフォルダ内の...
-
ffftpでファイル取得が0バイト...
-
FileDialog オブジェクトでファ...
-
AccessからOLEオブジェクト型の...
-
VBA ディレクトリ名をワイルド...
-
ファイル格納場所へのパス、っ...
-
ファイルを複数選択した時のフ...
-
VB6でUTF-8ファイルの読取りを
-
Vb6.0ランタイム―FlexGridとカ...
-
VB.net XMLの作成方法 Iniの代替
-
エクセルのプロパティーでセキ...
-
エクセルvbaでdocuworksprinter...
-
Wordで差込印刷した後に別々の...
-
ExcelブックをGoogleスプレッド...
-
エクセルで複数のコメントのサ...
-
カンマ区切りのCSVファイルから...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
「エクセルファイルが開いてい...
-
excel マクロ PDF化の際のエラ...
-
ffftpでファイル取得が0バイト...
-
VBAでフォルダ内のhtmlファイル...
-
EXCEL VBAを使ったファイル解析...
-
VB6でUTF-8ファイルの読取りを
-
AccessからOLEオブジェクト型の...
-
複数のワークブックのVBAを変更...
-
サブフォルダ含むフォルダ内の...
-
vbaサブフォルダーをワイルドカ...
-
タイムスタンプの更新の方法2
-
VBからExcelファイルを開くとき...
-
VBAでCSVファイルを読み込もう...
-
FileDialog オブジェクトでファ...
-
vbsでのアスタリスクとファイル...
-
VBA、ファイル名検索から開く、...
-
フォルダ階層・ファイル名・ペ...
-
webブラウザからローカルファイ...
-
ファイルを複数選択した時のフ...
おすすめ情報