'如果路径不存在，用默认文件名 C:\\CAPTURE.AVI nDir = Trim(ctDir)
If nDir = "" Or nDir = "<>" Or nDir = "<默认>" Then nDir = App.Path & "\\videos"
If Right(nDir, 1) <> "\\" Then nDir = nDir & "\\" If Not MakePath(nDir) Then
MsgBox "在指定的位置无法建立目录：" & vbCrLf & nPath, vbInformation, "保存视频文件"
Exit Sub End If
nF = Trim(ctF)
If nF = "" Or nF = "<>" Or nF = "<默认>" Then nF = Format(Now, "yyyymmdd-hhmmss") & ".avi"
If InStr(nF, ".") = 0 Then nF = nF & ".avi" F = nDir & nF
If CheckDirFile(F) = 1 Then
If vbNo = MsgBox("文件已存在，覆盖此文件吗？" & vbCrLf & F, vbInformation + vbYesNo, "开始录像") Then Exit Sub
On Error GoTo Cuo SetAttr F, 0 Kill F
On Error GoTo 0 End If
ctRec = False
SetWin ctCapWin, es_Size, , , , 1 ctRec = True
Call SetCaption("正在录像：" & nF) Call KjEnabled(True)
DoEvents
Call CloseMouse
SendMessage ctCapWin, WM_Cap_File_Set_File, 0, ByVal F '设置录像保存的文件 PostMessage ctCapWin, WM_CAP_Sequence, 0, 0 '开始录像 If ctAutoHide Then Me.Visible = False Exit Sub Cuo:
MsgBox "无法写文件：" & vbvrlf & vbCrLf & F, vbInformation, "录像 - 错误"
End Sub
' ' 一篇文章放不下全部代码，这是仅是第一页，转到：第二页
查看文档来源：http://hi.http://www.wodefanwen.com//100bd/item/f8960b687ca2bd0ca1cf0f13