String ls_bakDir,ls_dsn,ls_alter
ls_bakDir = GetCurrentDirectory() + '/bak'+ String(today(),'yy年mm月dd日hh时mm分')
If Not DirectoryExists (ls_bakDir) Then CreateDirectory(ls_bakDir)
If GetFolder( "备份目录选择", ls_bakDir ) <> 1 Then
MessageBox('','备份未完成')
Return
End If
ls_dsn = profilestring("config.ini","boot","dsn","asa_exam")
If Run('dbbackup -c "DSN=' + ls_dsn + '" ' + ls_bakDir) <> 1 Then Return
ls_alter = '备份成功.' + &
'~n可将此文件下发至各县区,由各县区自行导入本县区的数据.'
MessageBox('',ls_alter )