他老说非法路径……

Question

Private Sub Command2_Click()
If a = 1 And Text1.Text <> "" And Text1.Text <> "文件名" Then
c = App.Path + "\sys\" + Text1.Text + ".cfs"
End IfIf a = 4 And Text1.Text <> "" And Text1.Text <> "文件名" Then
 c = App.Path + "\user\fight\" + Text1.Text + ".cfs"
End IfIf a = 3 And Text1.Text <> "" And Text1.Text <> "文件名" Then
c = App.Path + "\user\mission\" + Text1.Text + " .cfs"
End IfIf 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 SubPrivate Sub Form_Unload(Cancel As Integer)
Form2.Show
End SubPrivate Sub Option1_Click()
a = 1
End SubPrivate Sub Option2_Click()
a = 4
End SubPrivate Sub Option3_Click()
a = 2
End SubPrivate Sub Option4_Click()
a = 3
End Sub

Answer 1

在根目录app.path的取值型如：c:\
而在子目录下的值型如：c:\test会不会是这个原因造成的。

Answer 2

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

Answer 3

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

Answer 4

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