他老说非法路径……

[wjf900621]

Private Sub Command2_Click()


If a = 1 And Text1.Text <> "" And Text1.Text <> "文件名" Then
c = App.Path + "\sys\" + Text1.Text + ".cfs"
End If

If a = 4 And Text1.Text <> "" And Text1.Text <> "文件名" Then
c = App.Path + "\user\fight\" + Text1.Text + ".cfs"
End If

If a = 3 And Text1.Text <> "" And Text1.Text <> "文件名" Then
c = App.Path + "\user\mission\" + Text1.Text + " .cfs"
End If

If a = 2 And Text1.Text <> "" And Text1.Text <> "文件名" Then
c = App.Path + "\user\work\" + Text1.Text + ".cfs"
End If
If c <> "" Then
Form2.RichTextBox1.SaveFile c
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form2.Show
End Sub

Private Sub Option1_Click()
a = 1
End Sub

Private Sub Option2_Click()
a = 4
End Sub

Private Sub Option3_Click()
a = 2
End Sub

Private Sub Option4_Click()
a = 3
End Sub

[三楼の郎]

在根目录app.path的取值型如：c:\
而在子目录下的值型如：c:\test

会不会是这个原因造成的。

[qingming81]

\user\mission\--------可能这些文件夹不存在。

[gxlxxiaojun]

你数据库是否在根目录下，在ADO属性测试路径时，可用...代表路径。

[onlineboy]

同意一楼的。
我是这样做的
dim Path as string
Path=app.path
if right(path,1)<>"\" then path=path & "\"

[wjf900621]

运行错误后检查函数C内的路径正确无误

[wjf900621]

up