大家帮忙看看

Question

下了一个  DownOcx下面是 它的全部代码   问题是  我在写文件时  总是接着原来的文件写  如 我的 C:\K.mp3 已经存在  如果我  把下载文件保存在 C:\K.mp3  那么文件  就会边的很大  播放时原来的  歌曲和下载的  歌曲  都包含在里面了帮忙  看看  是不是我写文件的时候 出了问题Option Explicit
Event DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
Event DownloadError(SaveFile As String)
Event DownloadComplete(MaxBytes As Long, SaveFile As String)Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty)
    
    On Error Resume Next
    '//开始写入
    Dim f() As Byte, fn As Long
    If AsyncProp.BytesMax <> 0 Then
        fn = FreeFile
        f = AsyncProp.Value
        Open AsyncProp.PropertyName For Output As #fn
        Put #fn, , f
        Close #fn
    Else
        RaiseEvent DownloadError(AsyncProp.PropertyName)
    End If
    RaiseEvent DownloadComplete(CLng(AsyncProp.BytesMax), AsyncProp.PropertyName)
End Sub
Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty)
    On Error Resume Next
    If AsyncProp.BytesMax <> 0 Then
    RaiseEvent DownloadProgress(CLng(AsyncProp.BytesRead), CLng(AsyncProp.BytesMax), AsyncProp.PropertyName)
    End If
End SubPublic Sub BeginDownload(url As String, SaveFile As String)
    On Error GoTo ErrorBeginDownload
    UserControl.AsyncRead url, vbAsyncTypeByteArray, SaveFile, vbAsyncReadForceUpdate
    Exit Sub
ErrorBeginDownload:
    MsgBox Err & ":Error in call to BeginDownload()." _
    & vbCrLf & vbCrLf & "Error Description: " & Err.Description, vbCritical, "Warning"
    Exit Sub
End Sub