verifier l'existance dans répertoire sur un serveur distant

Question

comment vérifier si le chemin d'un répertoire qui se trouve sur un serveur distant est correct.

voici mon code
la vérification ne marche pas mais la copie se passe sans problème quand je met la vérification en commentaire.

If Dir$("\" + agence + dest) = vbNullString Then
                        MsgBox "Chemin de destination introuvable - transfert interrompu"
                        End
                    End If
                    FileCopy orig + fichier, "\" + agence + dest + fichier
                    Kill orig + fichier

merci

cs_funseb · Answer

salut , j'ai eu le même problème , tu peux essayer ca :
tu declares

Dim fich As New FileSystemObject

(ajoute la reference microsoft data  binding collection)

et ensuite dans ta procedure tu met :

If fich.FolderExists("\Qs44ca576\QDLS\SCCPRF") = True Then
il est en ligne
else
il es pas en ligne
end if

avec \Qs44ca576\QDLS\SCCPRF\ qui correspond a l'adresse du serveur !

clac-clac

Verifier l'existance dans répertoire sur un serveur distant

1 réponse

Discussions similaires