VB 路径或文件访问错误

路径/文件访问错误（错误 75）：
在文件访问或磁盘访问操作期间，例如，Open、MkDir、ChDir 或
RmDir，操作系统不能连接路径和文件名连接。此错误有以下的原因和解决方法：

1）文件指定的格式不正确。
文件名可以包含完整限定的（绝对）或相对的路径。完整限定的路径以驱动器名称（如果路径在另一台驱动器上）为开始，并且列出从根目录到文件的路径。任何非完整限定的路径都是相对于当前驱动器和目录的。

2）试图保存到只读文件上。
修改目标文件的只读属性或以其他文件名保存。

3）在顺序 Output 或 Append 模式下试图打开只读文件。
以 Input
方式打开文件，或是要修改文件的只读属性。

详细信息，可选取有问题的项目，并按下 F1 键。

你把这句改下就好了
If Dir("cdLocation,vbhidden") = "" Then
改为
If Dir("cdLocation",vbReadOnly + vbHidden + vbArchive) = "" Then

你出现这种错误只可能是文件存在不可读写，你原来的语句中双引号括到了("cdLocation,vbhidden") ，硬盘里根本不可能有这个文件，所以返回一直是空值，就会一直执行then，我的语句也和你一样出现了错误，主要是我从你这里直接复制过来的，cdLocation是个变量，所以应该这么改，你试一试
If Dir(cdLocation,vbReadOnly + vbHidden + vbArchive) = "" Then

vbReadOnly + vbHidden + vbArchive的意思就是你后面设置的1+2+32