[VB NET] Application console gestion répertoires

Version imprimable

25/08/2006, 01h11
Lnmex

[VB NET] Application console gestion répertoires

Bonjour,

Désolée pour ma question surement très simple pour vous... :oops:

J´ai cherché un peu partout, mais je n'arrive pas à me positionner dans un répertoire en utilisant une application console...
J´ai vu dans la faq que l´on peut avoir toutes les racines, mais je n´ai pas trouvé d´endroit où l´on peut spécifier ses sources...

J´ai besoin de l´application console pour l´utiliser comme une console DOS pour lancer plusieurs .exe et voir le déroulement au fure et à mesure.

Il est possible de se déplacer dans l´application console? Pour changer de répertoire? :roll:

Merci!
26/08/2006, 20h17
StormimOn

Si j'ai bien compris ce que tu veux, je pense que ce que tu cherches c'est la méthode statique SetCurrentDirectory de la classe Directory (espace de noms System.IO).

Citation:

Envoyé par Lnmex

Il est possible de se déplacer dans l´application console? Pour changer de répertoire? :roll:

Merci!

Bonsoir,

Je vous ai fait un bout de code qui pourrait peut-être amorcer votre projet.
Cela peut-être une idée pour votre besoin de changer de répertoire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
    Sub Main()
        Dim Dossier As String = My.Application.Info.DirectoryPath
        Dim Reponse As Integer
 
        While Reponse <> 3
            Console.WriteLine("Le dossier courant est : " + Dossier)
            Console.WriteLine("1- Aller dans un autre dossier ?")
            Console.WriteLine("2- Lister les exécutable du dossier courant ?")
            Console.WriteLine("3- Quitter la console ?")
            Reponse = Console.ReadLine
            Select Case CType(Reponse, Integer)
                Case 1
                    Dossier = Console.ReadLine
                    While Not Directory.Exists(Dossier)
                        Console.WriteLine("Le dossier " + Dossier + " n'éxiste pas")
                        Dossier = Console.ReadLine
                    End While
                Case 2
                    For Each FichierExe As String In Directory.GetFiles(Dossier)
                        If Path.GetFileName(FichierExe).ToLower.Contains(".exe") Then
                            Console.WriteLine(Path.GetFileName(FichierExe))
                        End If
                    Next
                Case 3
                    End
                Case Else
                    Console.WriteLine("Erreur dans vote choix")
                    Reponse = Nothing
            End Select
        End While
    End Sub

Par rapport à votre demande, ce n'est pas complet (J'entends par là l'exécution de vos différents exe + quelques tests supplémentaires).