excel vba executar se encontra pasta

[deejaywesley]

Bom dia amigos!

 

tenho um problema com uma planilha aqui do trabalho, porque a rede interna cai muito devido as varios sistemas diferentes, ai eu preciso de um IF para a macro rodar so se ela encontrar uma pasta na rede..

ela nao precisa abrir a pasta é so ferificar se ela esta acessivel...

 

tem como?

[Basole]

Segue ex funcao q verif se o diretorio existe:  

Function FileOrDirExists(PathName As String) As Boolean    Dim iTemp As Integer    On Error Resume Next    iTemp = GetAttr(PathName)    Select Case Err.Number    Case Is = 0        FileOrDirExists = True    Case Else        FileOrDirExists = False    End Select    On Error GoTo 0End Function

* use dessa forma em sua macro: 

Dim SeuPath As String   SeuPath = ThisWorkbook.Path & "\SeuArquivo.*" ' exemploIf FileOrDirExists(SeuPath) Then'bla bla bla bla bla bla bla bla bla bla bla bla .....End If

[deejaywesley]

opa! valeu parceiro...

 

testei aqui e é isso mesmo que preciso!

muito obrigado...

forte abraço!