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:\Repertoire\SousRepertoire
Cela ne fonctionne pas si j'inscris le chemin sous la forme
\\NomServeur\Repertoire\SousRepertoire
Et évidement c'est cette forme qui est retenue.
Pouvez vous me donner une solution ? (hein par ce beau temps pluvieux)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
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)" a écrit dans le message de 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 | | | | |
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)" <removetechnic@sdis70.fr> a écrit dans le message de
news: f708h6$t2a$1@s1.news.oleane.net...
| 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
|
|
|
|
|
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)" a écrit dans le message de 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
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]" a écrit dans le message 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)" a écrit dans le message de 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 | | | | |
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]" <xyzofficesystem.accessxyz@free.fr> a écrit dans le message
de news: O3L56%23wwHHA.3560@TK2MSFTNGP02.phx.gbl...
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)" <removetechnic@sdis70.fr> a écrit dans le message de
news: f708h6$t2a$1@s1.news.oleane.net...
| 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
|
|
|
|
|
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]" a écrit dans le message 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)" a écrit dans le message de 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 | | | | |