executer la commande dos "dir"

Question

bonsoir,

je voudrais dans mon prog executer la commande dos "dir" pour lister tous les sous repertoires a partir d'un chemin connu et ensuite l'ecrire dans un fichier texte sous un repertoire connu.

en dos il me semble que ca donne cela mais je ne suis pas sur
dir c:\cao\ /s c:cao/search.pro

merci de votre aide

MadM@tt · Answer

Ton but est de lister le contenu d'un répertoire ? (car la y'a une fonction de VB toute prete pour), ou alors vraiment de passer par une commande DOS ? (ce qui est plus difficile)

Ciaò 
MadMatt
Vb System Library

MadM@tt · Answer

Parce que je me souviens d'ailleurs d'une source qui s'appelait "Dos Pipe" pour executer des commandes DOS et avoir le résultat dans un textbox

Ciaò 
- MadMatt -
Vb System Library

cs_rober · Answer

je voudrais une fonction completement invisible sur l'interface.
le but est de generer un fichier path pour ensuite lancer un logiciel qui utilisera ce path

econs · Answer

Salut,

Le plus simple est encore de poser un composant DirListBox sur ta feuille, de le rendre invisible, et de mettre Dir1.Path = "C:\LeRepertoireQueTuVeux".

Essaye le code suivant, il devrait te lister les sous répertoires du répertoire précédemment choisi :




For i=0 to Dir1.ListCount
 MsgBox Dir1.list(i)
Next i





Manu


--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

cs_rober · Answer

Ca marche mais un petit pb
Pourrais tu m'expliquer le pourquoi de la derniere ligne

Voici mon code:
Private Sub Command1_Click()
Dim SearchPro As String
SearchPro = "c:\cao\search1.pro"
Open SearchPro For Binary As #1
Dir1.Path = text6_chemin_projet.Text
For i = 0 To Dir1.ListCount
Put #1, , Dir1.List(i) & vbNewLine
' MsgBox Dir1.List(i)
Next i
Close #1
End Sub

Voici le resultat:
C:\cao
C:\Converted Music
C:\Documents and Settings
C:\flexlm
C:\GifAni
C:\HSF
C:\My Shared Folder
C:\NVIDIA
C:\Pdf
C:\Program Files
C:\TRANSFERT
C:\WINDOWS
C:\WINNT
C:\WUTemp

S  C:\WINNT 	 C:\WUTemp

Gobillot · Answer

Salut,
bien possible que ton fichier existait déjà avant
open  ... For Binary n'efface pas pas le fichier existant

Daniel

cs_rober · Answer

je l'ai corrige et je n'ai plus de pb

Voici mon code:
Private Sub Command1_Click()
'=======================================================
'Creation du search.pro
'=======================================================
Dim SearchPro As String
SearchPro = "c:\cao\search1.pro"
Kill SearchPro
Open SearchPro For Binary As #1
Dir1.Path = text6_chemin_projet.Text
For i = 0 To Dir1.ListCount
Put #1, , Dir1.List(i) & vbNewLine
Next i
Close #1

End Sub


Merci de ton aide
Bonne nuit

Gobillot · Answer

bien vu
seulement quand le fichier n'existera pas ça aboutira a un plantage
vaut mieux tester son existence avant:
     If Dir(SearchPro) <> "" Then Kill SearchPro

Daniel

cs_MPi · Answer

Vérifie que SearchPro existe (avec Dir) avant de faire un Kill pour éviter une erreur...

MPi

TMONOD · Answer

Bonsoir,
Si ca peut aider, une petite fonction qui ramène tous les fichiers d'un répertoire passé en paramètre. (Une version récursive pour explorer les sous répertoire est facile à faire à partir de là)

'une petite sub pour faire la démo

Sub testerListFichier()
Dim fichier As String
Dim tbvar() As String, i As Integer
tbvar =  GetFilesFromPath("c:")



For i = 0 To UBound(tbvar)
    Debug.Print ">" + tbvar(i)
Next

End Sub

 'La fonction 
Function GetFilesFromPath(path As String) As String()
Dim files() As String, fichier As String, i As Integer
ReDim files(100)
i  = 0
fichier = Dir(path, vbNormal Or vbHidden Or vbArchive Or vbReadOnly)
While fichier <> ""
    files(i) = fichier
    If i = UBound(files) Then
        ReDim Preserve files(i + 10)
    End If
    i = i + 1
    fichier = Dir()
Wend
ReDim Preserve files(i)
GetFilesFromPath = files
End Function








Jcbé[^]

JessicaR44 · Answer

Bonsoir rober, 


La commande DOS que tu cherches est dir c:\cao\ /s > c:\cao\search.pro
(le signe > provoquera la redirection que tu veux vers le fichier c:\cao\search.pro). Ce fichier est lisible avec le bloc-notes. 
Jessica

Executer la commande dos "dir"

11 réponses

Votre réponse

Discussions similaires