Créer un listing du reseau
Résolu
pascal7134
-
pascal7134 -
pascal7134 -
Bonjour,
j'ai un petit soucis avec visual basic ( je ne connait pas visual basic mais j'essaye de comprendre )
en sorte, je dois créer une fonction qui en cliquant sur un bouton me fasse un listing du réseau du type : nom.txt
mais j'ai une erreur mais je n'arrive pas a comprendre ou elle se trouve :
donc, quand je clique sur le bouton, il doit me céer un fichier txt comprenant :
dir "Z:\OS\10 OS Global E&I\Drawings" /b/s> "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DIRLOOPS.TXT"
notepad "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DIRLOOPS.TXT"
mais il ne m'inscrit pas les guillemets après /b/s> , a la fin de dirloops.txt et idem avec notepad
voici le listing visual basic :
'aanmaken DirX.txt:
'cmd vanuit
' Z:\OS\10 OS Global E&I\Drawings
' dir /b/s>DirLoops.txt
'plaats van het bestand:
' Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DirLoops.txt
'myPath1 = "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\"
Open myPath1 & "DirX.bat" For Output As #10
Print #10, Chr(64) & "echo off"
Print #10, "echo."
Print #10, "echo si cette operation n'est pas achevee le programme fonctionnes inexactement"
Print #10, "echo et VOUS devez de nouveau effectuer cette operation"
Print #10, "echo un peu de patience............"
Print #10, "echo."
'''Print #10, "dir " & Chr(34) & "Z:\OS\10 OS Global E&I\Drawings" & Chr(34) & " /b/s > " & Chr(34) & "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DirLoops.txt" & Chr(34)
'path moet in inifile komen:
'"Z:\OS\10 OS Global E&I\Drawings"
Select Case True
Case UCase(txtBib) = "DIRLOOPS.TXT"
Print #10, "dir " & Chr(34) & "Z:\OS\10 OS Global E&I\Drawings" & Chr(34) & " /b/s>" & myPath1 & txtBib '"dirloops.txt"
Case UCase(txtBib) = "DIRSTANCADELEC.TXT" 'I:\STANCADELEC\
Print #10, "dir " & Chr(34) & "I:\STANCADELEC" & Chr(34) & " /b/s>" & myPath1 & txtBib '"dirStanCadElec.txt"
Print #10, "dir " & Chr(34) & "I:\Reperage\Custom\Lib_acad2005\Symbol\Iec2" & Chr(34) & " /b/s>>" & myPath1 & txtBib '"dirStanCadElec.txt"
End Select
Print #10, "notepad " & myPath1 & txtBib '"DirLoops.txt"
' Print #10, "erase " & myPath1 & "DirX.bat"
Close #10
NewDir = Shell(myPath1 & "DirX.bat", 1)
RefrDirLoopsDatum
End If
End Sub
grand merci a vous
j'ai un petit soucis avec visual basic ( je ne connait pas visual basic mais j'essaye de comprendre )
en sorte, je dois créer une fonction qui en cliquant sur un bouton me fasse un listing du réseau du type : nom.txt
mais j'ai une erreur mais je n'arrive pas a comprendre ou elle se trouve :
donc, quand je clique sur le bouton, il doit me céer un fichier txt comprenant :
dir "Z:\OS\10 OS Global E&I\Drawings" /b/s> "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DIRLOOPS.TXT"
notepad "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DIRLOOPS.TXT"
mais il ne m'inscrit pas les guillemets après /b/s> , a la fin de dirloops.txt et idem avec notepad
voici le listing visual basic :
'aanmaken DirX.txt:
'cmd vanuit
' Z:\OS\10 OS Global E&I\Drawings
' dir /b/s>DirLoops.txt
'plaats van het bestand:
' Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DirLoops.txt
'myPath1 = "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\"
Open myPath1 & "DirX.bat" For Output As #10
Print #10, Chr(64) & "echo off"
Print #10, "echo."
Print #10, "echo si cette operation n'est pas achevee le programme fonctionnes inexactement"
Print #10, "echo et VOUS devez de nouveau effectuer cette operation"
Print #10, "echo un peu de patience............"
Print #10, "echo."
'''Print #10, "dir " & Chr(34) & "Z:\OS\10 OS Global E&I\Drawings" & Chr(34) & " /b/s > " & Chr(34) & "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DirLoops.txt" & Chr(34)
'path moet in inifile komen:
'"Z:\OS\10 OS Global E&I\Drawings"
Select Case True
Case UCase(txtBib) = "DIRLOOPS.TXT"
Print #10, "dir " & Chr(34) & "Z:\OS\10 OS Global E&I\Drawings" & Chr(34) & " /b/s>" & myPath1 & txtBib '"dirloops.txt"
Case UCase(txtBib) = "DIRSTANCADELEC.TXT" 'I:\STANCADELEC\
Print #10, "dir " & Chr(34) & "I:\STANCADELEC" & Chr(34) & " /b/s>" & myPath1 & txtBib '"dirStanCadElec.txt"
Print #10, "dir " & Chr(34) & "I:\Reperage\Custom\Lib_acad2005\Symbol\Iec2" & Chr(34) & " /b/s>>" & myPath1 & txtBib '"dirStanCadElec.txt"
End Select
Print #10, "notepad " & myPath1 & txtBib '"DirLoops.txt"
' Print #10, "erase " & myPath1 & "DirX.bat"
Close #10
NewDir = Shell(myPath1 & "DirX.bat", 1)
RefrDirLoopsDatum
End If
End Sub
grand merci a vous
A voir également:
- Créer un listing du reseau
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
- Creer un fichier .bat - Guide
6 réponses
Bonjour,
Pourquoi tu utilise vb alors que tu ne fais que des commande qui pourrais etre mis dans un batch ??
Soit tu fais un batch, soit tu utilise les fontions de vb.. mais faut choisir ;)
Pourquoi tu utilise vb alors que tu ne fais que des commande qui pourrais etre mis dans un batch ??
Soit tu fais un batch, soit tu utilise les fontions de vb.. mais faut choisir ;)
bonjour,
je fais du VB car j'ai crée un outils dans Autocad ( programme de dessin ) et lorsque je clique sur un bouton dans autocad, il doit me creer un listing du réseau.
merci
je fais du VB car j'ai crée un outils dans Autocad ( programme de dessin ) et lorsque je clique sur un bouton dans autocad, il doit me creer un listing du réseau.
merci
ok, dans ce cas là, utilise plutot les fonctions de vb ;)
la fonction Dir de vb te sert à lister les fichiers/repertoire...
pour ecrire dans un fichier:
Open "FICHTEST" For Output As #1 ' Ouvre le fichier en écriture.
Write #1, "Bonjour à tous", 234 ' Écrit des données séparées par
' des virgules.
Write #1, ' Écrit une ligne vierge.
close #1
voili :)
la fonction Dir de vb te sert à lister les fichiers/repertoire...
pour ecrire dans un fichier:
Open "FICHTEST" For Output As #1 ' Ouvre le fichier en écriture.
Write #1, "Bonjour à tous", 234 ' Écrit des données séparées par
' des virgules.
Write #1, ' Écrit une ligne vierge.
close #1
voili :)
Oui, ça n'a aucun sens de lancer des commabdes Console depuis VB.
La meilleure méthode sst avec les apis Windows (Net et autres)
La meilleure méthode sst avec les apis Windows (Net et autres)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour :)
pas besoin s api wondows pour ca ;).. c'est dejà tout intégrer en vb... Alors, le ptit bout de code te va?
pas besoin s api wondows pour ca ;).. c'est dejà tout intégrer en vb... Alors, le ptit bout de code te va?
bonjour,
merci pour vos réponse.
Mais étant novice dans ce domaine ( j'ai récupéré un programme existant que j'ai un peu modifié) vos réponse sont peu etre correct mais je suis un peu dans le brouillard .
MAIS j'ai quand même réussi a me dépatouiller, en sorte, il ne manquait que des guillemets a certaine place, en faisant la même opération depuis le command prompt, je me suis aperçu de l'oubli : il manquait chr(34) après le nom du réseau.
maintenant, tout marche super bien.
Grand merci
merci pour vos réponse.
Mais étant novice dans ce domaine ( j'ai récupéré un programme existant que j'ai un peu modifié) vos réponse sont peu etre correct mais je suis un peu dans le brouillard .
MAIS j'ai quand même réussi a me dépatouiller, en sorte, il ne manquait que des guillemets a certaine place, en faisant la même opération depuis le command prompt, je me suis aperçu de l'oubli : il manquait chr(34) après le nom du réseau.
maintenant, tout marche super bien.
Grand merci
