#1 Sat 03 April 2004 15:28
- Rami Sawda
- Invité
VBA -ARCMAP-RESEAU
De: rami
Je souhaite effectuer l'equivalent d'un Ping grace a ARCMAP et VBA dans le but de tester un reseau informatique local et pouvoir identifier le pc qui n'est pas connecter au reseau grace a un point dynamique qui va etre cree dans ARCMAP sur la carte du reseau
#2 Sun 04 April 2004 05:15
- Arcsig
- Invité
Re: VBA -ARCMAP-RESEAU
s'agit il juste de tester un point de montage disque (par exemple z: ou serveurpartage ) ou de tester un port reseau
si c'est seulement un point de montage, c'est simple:
il faut
- ajouter dans les references la bibliotheque Microsoft Scripting Runtime
- creer la fonction suivante:
Code:
public function CheminExiste(strChemin as string) as boolean Dim fso As New Scripting.FileSystemObject CheminExiste fso.FolderExists(strChemin) end function
- tester vos points de montage : par exemple :
Code:
if not CheminExiste( MonServeurMonRepertoire ) then -> traitement end if
