路径/文件访问错误(错误 75)
在文件访问或磁盘访问操作期间,例如,Open、MkDir、ChDir 或 RmDir,操作系统不能连接路径和文件名连接。此错误有以下的原因和解决方法: 文件指定的格式不正确。
文件名可以包含完整限定的(绝对)或相对的路径。完整限定的路径以驱动器名称(如果路径在另一台驱动器上)为开始,并且列出从根目录到文件的路径。任何非完整限定的路径都是相对于当前驱动器和目录的。试图保存到只读文件上。
修改目标文件的只读属性或以其他文件名保存。在顺序 Output 或 Append 模式下试图打开只读文件。
以 Input 方式打开文件,或是要修改文件的只读属性。
代码如下:
****************************************************************
Private Sub Form_Load()
Me.Show If VBA.Right(App.Path, 1) <> "\" Then
MyPath = App.Path & "\"
Else
MyPath = App.Path
End If
Filename2 = MyPath & "login.hsf"
If UCase(Dir(Filename2)) = UCase("login.hsf") Then 'Kill Filename2Open Filename2 For Binary Access Read As #1
Get #1, , BinSQLReg()
Close #1
.......................
Else
Me.Hide
Load Form_Reg
End If
Exit Sub
M_Err:
MsgBox "出错代码:" & Format(Err.Number) & Chr(13) & "出错提示:" & Err.Description, vbSystemModal + vbCritical, Me.Caption
End
End Sub
******************************************************************
难道XP下USER级用户,域登陆(服务器win2003)后无法识别目录路径?大家试试看,有解吗?
在文件访问或磁盘访问操作期间,例如,Open、MkDir、ChDir 或 RmDir,操作系统不能连接路径和文件名连接。此错误有以下的原因和解决方法: 文件指定的格式不正确。
文件名可以包含完整限定的(绝对)或相对的路径。完整限定的路径以驱动器名称(如果路径在另一台驱动器上)为开始,并且列出从根目录到文件的路径。任何非完整限定的路径都是相对于当前驱动器和目录的。试图保存到只读文件上。
修改目标文件的只读属性或以其他文件名保存。在顺序 Output 或 Append 模式下试图打开只读文件。
以 Input 方式打开文件,或是要修改文件的只读属性。
代码如下:
****************************************************************
Private Sub Form_Load()
Me.Show If VBA.Right(App.Path, 1) <> "\" Then
MyPath = App.Path & "\"
Else
MyPath = App.Path
End If
Filename2 = MyPath & "login.hsf"
If UCase(Dir(Filename2)) = UCase("login.hsf") Then 'Kill Filename2Open Filename2 For Binary Access Read As #1
Get #1, , BinSQLReg()
Close #1
.......................
Else
Me.Hide
Load Form_Reg
End If
Exit Sub
M_Err:
MsgBox "出错代码:" & Format(Err.Number) & Chr(13) & "出错提示:" & Err.Description, vbSystemModal + vbCritical, Me.Caption
End
End Sub
******************************************************************
难道XP下USER级用户,域登陆(服务器win2003)后无法识别目录路径?大家试试看,有解吗?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货