Rechercher si le chemin reseau existe

Le
JeanYves \(au pro\)
Bonjour à tous,

J'ai besoin de copier un fichier sur le serveur 1 et si il est déconnecté
sur le serveur 2
pour tester j'ai essayé une fonction trouvé sur le site de 3Stone

Function fnFolderExist(DrivePath As String) As Boolean
If Dir(DrivePath, vbDirectory) <> "" Then
fnFolderExist = True
Else
fnFolderExist = False
End If
End Function

Mes chemins sont inscrits dans une table et j'appelle cette fonction avec :

If fnFolderExist(MaTable![MonChamp]) = True Then


Cela fonctionne trés bien dès lors que les chemins sont inscrits sous la
forme
Lettre:RepertoireSousRepertoire

Cela ne fonctionne pas si j'inscris le chemin sous la forme
\NomServeurRepertoireSousRepertoire
Et évidement c'est cette forme qui est retenue.

Pouvez vous me donner une solution ? (hein par ce beau temps pluvieux)

D'avance Merci

J-Yves
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Raymond [mvp]
Le #6292881
Bonjour.

il faut utiliser la librairie Microsoft Scripting Runtime pour faire ça.

tu trouveras une librairie sur la page :
http://officesystem.access.free.fr/scr_scripting_runtime.htm
que tu copieras dans un module standard que tu appelleras SCR
(impérativement).

pour ton test tu lances ce type de fonction:

If SCR.FolderExist("//Portablers/SharedDocs") then

If SCR.FileExist("//Portablers/SharedDocs/plan.jpg") then


bien penser de cocher la référence Microsoft Scripting Runtime.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"JeanYves (au pro)" news: f708h6$t2a$
| Bonjour à tous,
|
| J'ai besoin de copier un fichier sur le serveur 1 et si il est déconnecté
| sur le serveur 2
| pour tester j'ai essayé une fonction trouvé sur le site de 3Stone
|
| Function fnFolderExist(DrivePath As String) As Boolean
| If Dir(DrivePath, vbDirectory) <> "" Then
| fnFolderExist = True
| Else
| fnFolderExist = False
| End If
| End Function
|
| Mes chemins sont inscrits dans une table et j'appelle cette fonction avec
:
| ...
| If fnFolderExist(MaTable![MonChamp]) = True Then
| ...
|
| Cela fonctionne trés bien dès lors que les chemins sont inscrits sous la
| forme
| Lettre:RepertoireSousRepertoire
|
| Cela ne fonctionne pas si j'inscris le chemin sous la forme
| \NomServeurRepertoireSousRepertoire
| Et évidement c'est cette forme qui est retenue.
|
| Pouvez vous me donner une solution ? (hein par ce beau temps pluvieux)
|
| D'avance Merci
|
| J-Yves
|
|
|
|
|
JeanYves
Le #6292871
Merci Raymond,

J'essai dès demain et déjà grace à ta réponse je comprend mieux pourquoi je
n'arrivais pas à faire fonctionner les exemples que j'avais également
trouvés sur ton site.

Encore merci

Bonne soirée

JY

"Raymond [mvp]" de news: O3L56%
Bonjour.

il faut utiliser la librairie Microsoft Scripting Runtime pour faire ça.

tu trouveras une librairie sur la page :
http://officesystem.access.free.fr/scr_scripting_runtime.htm
que tu copieras dans un module standard que tu appelleras SCR
(impérativement).

pour ton test tu lances ce type de fonction:

If SCR.FolderExist("//Portablers/SharedDocs") then

If SCR.FileExist("//Portablers/SharedDocs/plan.jpg") then


bien penser de cocher la référence Microsoft Scripting Runtime.
--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office
!
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"JeanYves (au pro)" news: f708h6$t2a$
| Bonjour à tous,
|
| J'ai besoin de copier un fichier sur le serveur 1 et si il est
déconnecté
| sur le serveur 2
| pour tester j'ai essayé une fonction trouvé sur le site de 3Stone
|
| Function fnFolderExist(DrivePath As String) As Boolean
| If Dir(DrivePath, vbDirectory) <> "" Then
| fnFolderExist = True
| Else
| fnFolderExist = False
| End If
| End Function
|
| Mes chemins sont inscrits dans une table et j'appelle cette fonction
avec
:
| ...
| If fnFolderExist(MaTable![MonChamp]) = True Then
| ...
|
| Cela fonctionne trés bien dès lors que les chemins sont inscrits sous la
| forme
| Lettre:RepertoireSousRepertoire
|
| Cela ne fonctionne pas si j'inscris le chemin sous la forme
| \NomServeurRepertoireSousRepertoire
| Et évidement c'est cette forme qui est retenue.
|
| Pouvez vous me donner une solution ? (hein par ce beau temps pluvieux)
|
| D'avance Merci
|
| J-Yves
|
|
|
|
|




Publicité
Poster une réponse
Anonyme