Zjištění délky CD stopy
Procedura:
Dim a As String * 1
Dim b As String * 1
Dim A1, A2 As Integer
'Zde nahraďte svým
souborem
Open
"E:\Track03.cda" For Binary As #1
Get #1, 42, b
Get #1, 43, a
A1 = Asc(a)
A2 = Asc(b)
If A2 < 9 Then
MsgBox "Celkový čas = " & Space(1) & A1 & ":" & "0" & A2
Else
MsgBox "Celkový čas = " & Space(1) & A1 & ":" & A2
End If
Close #1