帮我解释一下这个VB代码再用文字形式翻一下DimdespathrAsStringdespathr=Despath+"\"+CStr(Date)+"."+kznameIfDir(despathr)""ThenKilldespathrEndIfIfSourcepath=""Ordespathr=""ThenMsgBox("备份路径

Question

帮我解释一下这个VB代码 再用文字形式翻一下Dim des_pathr As String despathr = Des_path + "\" + CStr(Date) + "." + kz_name If Dir(despathr) "" Then Kill despathr End If If Source_path = "" Or despathr = "" Then MsgBox ("备份路径不存在或没有选择路径") Exit Sub Else FileCopy Source_path, despathr MsgBox ("备份成功") End If

Answer 1

定义一个名字叫做des_pathr 的字符串变量。 给despathr 赋值 如果 返回的值不等于空 则 杀掉despathr 结束如果 如果Source_path 等于空 或者 despathr 等于空 则 弹一个对话框 推出代码体 否则 拷贝文件XXXX 弹出对话框。 结束如果。 娘的。你这都不会，你问个鸟呀。