用DIR函数如何判断服务器中的共享目录
在VBA中可以用DIR函数判断本地是否存在文件夹。
例: If Dir("C:\WINDOWS") = "" Then
那如何用该函数判断服务器上的已经共享的 根目录 是否存在
比如:111.111.111.111服务器上共享了D:\Tools文件夹,共享文件夹的名称为Tools。
执行下面的代码时会出错(Err.Number为52)。
If Dir("\\111.111.111.111\Tools") = "" Then
但是判断Tools下面的子文件夹是没有问题的。
例:If Dir("\\111.111.111.111\Tools\Office") = "" Then
If Dir("\\111.111.111.111\Tools\VSS2005") = "" Then
请问,如何用Dir函数判断服务器目录是否存在?
[解决办法]
如果你确认tools子目录没有问题的话,那应该是Dir("\\111.111.111.111\Tools",vbDirectory),返回值是Tools。
[解决办法]
应该还是权限的问题,把tools的上级目录权限全打开试试。
[解决办法]
Declare Function PathFileExistsA Lib "shlwapi" (ByVal pszPath As String) As Long