http://www.planetaexcel.ru/forum.php?thread_id=4194 Это подойдет?

Excel_master,  
с сетевыми ресурсами всё не так просто: папка, например, может быть доступна, но только на чтение, а может быть доступна на запись, но не допускать удаления из неё.  
Когда мне понадобилось удостовериваться в ПОЛНОЙ доступности сетевой папки, я написал такую процедурку:  
Function ChkPATH(sPath$) As Boolean   ' проверка существования пути к папке и её доступности на запись и удаление  
  On Error Resume Next  
  GetAttr (sPath)   ' если папка не существует, то будет ошибка  
  If Err Then GoTo eXXit  
  Dim DirName$  
  Do  
     Do While Len(DirName) < 10   ' случайное имя из смеси 10 букв кириллицы и латиницы  
        DirName = DirName & Chr(Int(Asc("АБВ") + 32 * Rnd)) & Chr(Asc("abc") + Int(26 * Rnd))  
     Loop  
  Loop While Dir(sPath & DirName) <> ""   ' пока имя не будет уникальным в папке  
  MkDir sPath & DirName: RmDir sPath & DirName   ' создать и удалить папку  
eXXit:    ChkPATH = (Err = 0)  
  Err.Clear  
End Function

Помнится, в одной из тем по сетевой папке предлагалось добавлять небольшой тайм-аут.

:-) Где-то ещё проскакивало...