Newsgroup: it.comp.lang.visual-basic
Titolo: Reindirizzare output

Scusate, sapete dirmi come posso reindirizzare l'output di un comando dos
(per esempio dir) su di una textbox (per esempio)? E come faccio a passargli
anche dei parametri (per esempio /w)? Per chiamarlo posso usare
ShellExecute?
Grazie delle informazioni.
---
Ramses
---
icq:39860665
http://knowledgeparty.cjb.net
http://evilz0ne.cjb.net

 ShellExecute?
Si
ciao
ugo

 Grazie delle informazioni.
MyOut = MainPath & "CabTmp.txt"
Conf = Shell("
command.com
 /c if exist " & MyOut & " del " & MyOut,
vbHide)
DoEvents
MyFileShort = GetShortPathName(MyFile)
Conf = Shell("Command.com /c extract /d " & Chr(34) & MyFileShort &
Chr(34) & " > " & MyOut, vbHide)
nb: su nt inchioda la macchina...
ciao, a.


Ammiro la tua precisa precisione...
:-)
ciao
ugo

 nb: su nt inchioda la macchina...
doooh (vedi urlo Homer Simpson :-)). Lavoro sotto NT (Windows 2000). Come si
fa sotto sul 2000? Posso fare come mi ha detto Ugo?


 fa sotto sul 2000? Posso fare come mi ha detto Ugo?
con shellexecute ? mai provato, shellexecute la uso per lanciare
documenti di vario genere, non eseguibili, ma ugo ne sa tera volte piu'
di me, dunque suppongo di si'. magari cerca nei vecchi post anche start,
se ne e' parlato piu' volte.
nb: quel codice l'ho usato quando mi serviva un listato di un cab, e
dato che in realta' correva su w9, non ho mai fatto prove approfondite.
puo' essere che l'inchiodamento fosse dovuto all'extract.
poiche' in nt per il prompt scrivi esegui | command, puo' darsi che
altre cose funzionino.
io farei qualche prova. dopo il crash duro, nt poi a spegnerlo
ripartiva. di solito :)
ciao, a.


Quella è un'altra strada
Qui sono su 95, ma a occhio una cosa tipo
pippo= ShellExecute(Me.hwnd, "open", "
command.com
", "/c dir>pippo.txt",
"c:\", 1)
dovrebbe andare anche sotto 2000.
Al limite metti cmd.exe al posto di 
command.com
ciao
ugo

 Al limite metti cmd.exe al posto di 
command.com
ecce ille ! bravus ugus  ! sic fungitur !
attenzione alle virgolette per i nomi con spazi.
vb6sp5, nt5:
Option Explicit
Dim myPath As String
Private Sub ChekPath()
    myPath = Dir1.Path
    If Right(myPath, 1) <> "\" Then myPath = myPath & "\"
    Caption = myPath
End Sub
Private Sub Command1_Click()
    On Error GoTo errman
    Dim lRet As Long, fOut As String, s As String
    fOut = myPath & "dirtmp.txt"
    s = "cmd.exe /c dir /s " & Chr(34) & myPath & _
        Chr(34) & " > " & Chr(34) & fOut & Chr(34)
    Text1 = s
    lRet = Shell(s, vbHide)
    Exit Sub
errman:     MsgBox Error: Exit Sub
End Sub
Private Sub Dir1_Change()
    ChekPath
End Sub
Private Sub Form_Load()
    Dir1.Path = App.Path
    ChekPath
End Sub
text1:
cmd.exe /c dir /s "C:\Programmi\eastman kodak company\" >
"C:\Programmi\eastman kodak company\dirtmp.txt"
dirtmp.txt:
Il volume nell'unit. C S cucciolo
 Numero di serie del volume: B775-42B1
 Directory di C:\Programmi\eastman kodak company
30/07/2001  01.55       <DIR>          .
30/07/2001  01.55       <DIR>          ..
30/07/2001  01.55                    0 dirtmp.txt
25/05/2001  08.43       <DIR>          fotocamera digitale kodak ez200
               1 File              0 byte
 Directory di C:\Programmi\eastman kodak company\fotocamera digitale
kodak ez200
25/05/2001  08.43       <DIR>          .
25/05/2001  08.43       <DIR>          ..
11/10/2000  14.04               40.846 uninst.isu
               1 File         40.846 byte
     Totale file elencati:
               2 File         40.846 byte
               5 Directory   1.528.438.784 byte disponibili