MMB小技巧 003
来源:百度文库 编辑:神马文学网 时间:2024/09/29 21:36:30
MMB小技巧 003
保存光盘文件到硬盘
fls$='abc.exe'
dir$='
rou$=dir$+fls$
BrowseForFolder("选择你文件保存的目录","")
rdr$=CBK_OpenDir
rec$=rdr$+'\\'+fls$
If (rdr$='') Then
Else
FileExist("rec$","FileCheck")
If (FileCheck=1) Then
Message("你已经保存有这个文件","")
Else
SysCommand("copyfile","rou$,rec$")
msg$='已将“'+fls$+'”文件保存到目录:'+CHR(13)+rdr$
Message("文件复制完毕!","msg$")
End
End