VB代码修正

来源：百度知道 编辑：UC知道 时间：2024/05/25 03:59:04
Private Sub Command1_Click()
FileCopy "d:\遁地包请勿修改或删除\沙漠-1遁地", text1.Text & "rf015.rez"
MsgBox "开启成功只限沙漠-1"
End Sub

Private Sub Command2_Click()
FileCopy text1.Text & "rf015.rez", "d:\遁地包请勿修改或删除\592"
MsgBox "备份成功"

End Sub

Private Sub Command3_Click()
FileCopy "d:\遁地包请勿修改或删除\592", text1.Text & "rf015.rez"
MsgBox "还原成功"
End Sub

Private Sub Dir1_Change()
text1.Text = IIf(Len(Dir1.Path) > 3, Dir1.Path & "\", Dir1.Path)
text1.Text = text1.Text & "rez\" '这里
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

如何选择完一次目录以后就是那个目录不用再选

给你一个思路
把路径保存到文件
然后下一次的时候先载入路径

读写文件很容易吧？

Form_Unload里面进行写入
Open App.Path & "\path.log" for output as #1
print #1,Drive1.Drive
print #1,Dir1.Path
close #1

Form_Load里面写入
If Dir(App.Path & "\path.log")<>"" Then '是否存在文件
Open App.Path & "\path.log" For input As #1
Line Input #1,Drive1.Drive
Line Input #1,Dir1,Path
Close #1
End If
Dir1_Change

另外我说下IIf(Len(Dir1.Path) > 3, Dir1.Path & "\", Dir1.Path) 这句直接写
Dir1.Path & "\"
就行了
因为C:\1.TXT跟C:\\1.TXT在VB里面解释相同