dear all.. apakah ada yang tau sintax untuk pengecekan file wav? source yg sdh didpt: Public Function GetWavLength(fname As String) Dim MediaLength As Long Dim RetString As String * 256 Dim CommandString As String
CommandString = "Open " & fname & " alias MediaFile" mciSendString CommandString, vbNullString, 0, 0& CommandString = "Set MediaFile time format milliseconds" mciSendString CommandString, vbNullString, 0, 0& CommandString = "Status MediaFile length" mciSendString CommandString, RetString, Len(RetString), 0& MediaLength = CLng(RetString) GetWavLength = CDbl(MediaLength) End Function begitu di-run..muncul eror : Type mismatch di MediaLength=CLng(RetString). Mohon bantuannya.. ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hrdcc5o/M=362329.6886308.7839368.1510227/D=groups/S=1705115364:TM/Y=YAHOO/EXP=1122624313/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992 ">Fair play? Video games influencing politics. Click and talk back!</a>.</font> --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
