je veux executer une commande dos

Bonjours
j'ai une imprimante(pour etiquette) ,elle recoit un fichier texte.txt contenant les format et les données à imprimer ,la commande d'impression passe par l'invite ms-dos elle est comme suit:
j'ouvre l'invite ms-dos,j'ouvre le dossier parant du fichier et je tape "copy nomfichier.txt lpt1"

j'ai essayer en VB de passer cette commande :

Private Sub Command2_Click()
Dim sh
sh = Shell("cmd")
SendKeys "(copy nomfichier.txt lpt1){enter}", True
end sub

le probleme est que cette méthode n'est pas stable des fois passe et d'autre fois non
la chaine de la commande n'est pas complétement envoyé et plusieur fenêtres dos s'ouvres sans aucun effet.

Comment je peut passer cette commande correctement ? ou y à il une autre solution ?

Merci.


 

Salut, ou encore
[ Lien ]

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Salut
j'ai un fichier texte qui contien des valeur (chaque ligne contien un valeur),pour extraire ces valeur ,j'ai déclaré un tableau de type variant et j'ai mis chaque ligne dans une case du tableau
tab(20)="32.500" type variant
quand j'utilise la fonction  CDbl( tab(20))   ,CLng( ) ou CInt( ).. vb m'affiche type incompatible 
comment pouvai'je convertir un type string ou variant extrait d'un fichier texte en reel ?
Merci

 

 

Salut,
Si tu déclares ton tableau commme suit: Dim TonTab(150)  As String (tableaux de 151 éléments)
Il sera de type string et pourra contenir les valeurs extraites de ton fichier.
Pourquoi passer par le Type Variant alors que tu sais que tu vas avoir des chaine de caractère.

Pour savir pourquoi VB te donne cette erreur il serai tplus commode pour nous d'avoir plus de code.

@+: Ju£i€n
Pensez: Réponse acceptée

salut
il parait que le probleme vien des point entre les chiffres
j'ai changé les point en virgules dans le texte est ca marché , vb na  pas pu accepter des valeur contenant un point  "32.000",j'ai meme déclaré le tableau comme string et je n'ai pas converti
la chaine est ca marché.

 

Bonjour a tous
merci casy pour ceci sa marche tres bien
Private Sub Command2_Click()
Dim sh
sh = Shell("cmd /c copy nomfichier.txt lpt1")
end sub
a +