MMB小技巧 003

来源:百度文库 编辑:神马文学网 时间:2024/09/29 21:36:30
MMB小技巧 003

 

保存光盘文件到硬盘

 

fls$='abc.exe'
dir$='\\Documents and Settings\\Administrator\\My Documents\\新建文件夹\\'
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