首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

用DIR函数怎么判断服务器中的共享目录

2013-06-19 
用DIR函数如何判断服务器中的共享目录在VBA中可以用DIR函数判断本地是否存在文件夹。例: If Dir(C:\WINDOW

用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

热点排行