c'est juste un problème de page de code
Process1.StartInfo.Arguments = "/c " & "dir/s > C:\Users\Coco\Desktop\TEST.txt"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question"dir/s > C:\Users\Coco\Desktop\TEST.txt"
Dim p_info As New ProcessStartInfo(TextBox2.Text) p_info.UseShellExecute = False p_info.CreateNoWindow = True p_info.RedirectStandardOutput = True Dim proc As New Process() proc.StartInfo = p_info proc.Start() Dim DOS As StreamReader = proc.StandardOutput() TextBox1.Text = DOS.ReadToEnd() DOS.Close() proc.Close()
textbox1.text = textbox1.text.replace("," , "é")
ucfoutu, cela ne viens en fait pas du DOS, car quand j'utilise la commande dir/s (exemple) depuis l'invité de commande les "é" sont bien affichés
Dim p_info As New ProcessStartInfo("C:\trucbidule...\machinchose.bat") p_info.UseShellExecute = False p_info.CreateNoWindow = True p_info.RedirectStandardOutput = True Dim proc As New Process() proc.StartInfo = p_info proc.Start() Dim DOS As StreamReader = proc.StandardOutput() TextBox1.Text = DOS.ReadToEnd() DOS.Close() proc.Close()
NHenry dimanche 8 avril 2012 à 21:26:05
Regardes comme je te l'ai déjà dit Io.Directory.GetFiles, tu auras la liste des fichiers.
Je signale que dir/s n'était qu'un exemple, j'aurai pu choisir plein d'autre commande.
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click RichTextBox1.Text = Nothing Dim dossier As String() = Directory.GetDirectories(TextBox1.Text) Dim dossier2 As String For Each dossier2 In dossier RichTextBox1.Text = RichTextBox1.Text & vbCrLf & dossier2 Next End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click RichTextBox2.Text = Nothing Dim fichier As String() = Directory.GetFiles(TextBox2.Text) Dim fichier2 As String For Each fichier2 In fichier RichTextBox2.Text = RichTextBox2.Text & vbCrLf & fichier2 Next End Sub