קבלת גודל קובץ (בדקות) של קובץ אודיו WAV

[מלא 0]

יש איזה קוד 'VBA' לזה?

יש לי כבר את הקובץ באמצעות FSO

פורסם במקור בפורום CODE613 ב26/11/2014 17:15 (+02:00)

[clickone]

אתה צריך להשתמש בפונקציית API בשם mciSendString.
הגדרת הפונקציה:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
   (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
   ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

ואז לקרוא לה.

בגלל שאני מבין שאתה עובד עם קבצי שמע, מן הסתם תרצה מחלקה שמטפלת בזה, ושתתן לך קצת יותר. (להשמיע, להפסיק ואח"כ להמשיך וכו')
Sound.zip

המחלקה הזו תומכת גם בWMA וMP3.

מקור המחלקה

פורסם במקור בפורום CODE613 ב26/11/2014 21:18 (+02:00)

[מלא 0]

תודה תודה רבה רבה.

רק בטסט צריך לכתוב ככה, כדי שיציג את משך ההקלטה בפורמט שעה.

MsgBox s.Time(s.Length)

פורסם במקור בפורום CODE613 ב27/11/2014 10:53 (+02:00)

[אבי]

תודה, עוזר לי מאוד.

פורסם במקור בפורום CODE613 ב27/11/2014 10:54 (+02:00)