首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请问关于音频文件自动保存有关问题!

2012-02-01 
请教关于音频文件自动保存问题!~我想做一个程序当录音停止按钮按下后自动保存文件并读取当前时间存储为文

请教关于音频文件自动保存问题!~
我想做一个程序当录音停止按钮按下后自动保存文件并读取当前时间存储为文件名(时间精确到秒)!请教有高手有这方面的代码吗?麻烦指引一下!~~~

[解决办法]
如果是自己写的程序来录音,这根本就不会是问题吧,录音的代码一搜一大堆:

http://www.google.cn/search?hl=zh-CN&source=hp&q=VB+%E5%BD%95%E9%9F%B3%E6%9C%BA&aq=f&oq=

LZ是不是想控制别的录音软件?
[解决办法]
看这里
[解决办法]
不知道这样是不是你想要的

VB code
Private Sub Command1_Click()    Dim mfile As String, mfile2  As String    On Error Resume Next    mfile = App.Path & "\Windows XP 开始.wav" '要保存的文件    mfile2 = App.Path & "\" & Format(Now, "yyyyMMddHHmmss") & ".wav" '保存到的目标位置    If Dir(mfile2) <> "" Then      If MsgBox(Dir(mfile2) & "  文件已经存在,是否替换?", vbYesNo, "警告") = vbNo Then Exit Sub    End If    Dim buff() As Byte, i As Long          i = FileLen(mfile)    ReDim buff(i - 1)          Open mfile For Binary As #1    Get #1, , buff    Close #1          Open mfile2 For Binary As #2    Put #2, , buff    Close #2          MsgBox "保存完毕!"End Sub 

热点排行