SQL Server2000 数据库备份问题
请问大家能否实现如下功能:
程序中点击一个按钮 "备份数据库 ",便可以备份SQL   Server2000的数据库到某一指定的目录.
请各位帮忙~~~

------解决方案--------------------

' 'ys 为数据库名
If Dir(appPath & "backup ", 16) = " " Then
MkDir appPath & "backup "
End If
init = MsgBox( "首先确认您的计算机有一名为 BACKUP (完全共享)的文件夹！ 数据备份要求很长一段时间，是否继续进行？请确认！ ", 4 + 32 + 256)
If init <> 6 Then Exit Sub
Screen.MousePointer = 11
cn.CommandTimeout = 0
cn.Execute "BACKUP DATABASE ys TO DISK = '\\ " & ComputerName & "\backup\ys.bak ' "
If Err = 0 Then MsgBox "数据备份成功！ "
Screen.MousePointer = 0