Public Sub bakup_db(ByVal Optional manual As String = "")
Try
Dim sbcommand As StringBuilder = New StringBuilder()
Dim sbfileName As StringBuilder = New StringBuilder()
Dim fileName As String = sbfileName.ToString()
If False = System.IO.Directory.Exists(bakpath) Then
System.IO.Directory.CreateDirectory(bakpath)
End If
Dim directory As String = bakpath & fileName & ".bak"
If System.IO.File.Exists(directory) = True Then
Return
End If
sbcommand.AppendFormat("uname, upass, dbname, directory, port)
Dim command As String = sbcommand.ToString()
ShowLog("命令:" & command)
RunCMD(appDirecroty, command)
ShowLog("路径:" & directory)
Catch ex As Exception
ShowErrorLog("失败:" & ex.Message)
End Try
End Sub