Discussion :

[Twetty56]

Bonjour a tous
depuis 3 jours je suis bloque

je cherche a passer un argument pour un process cmd.exe

j'ai trouvé tous les codes voulus

mais mon argument retourne toujours une erreur et ne s’exécute pas

voici l'argument qui marche en manuel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\Programme\EBP\Invoicing12.2FRFR40\EBP.Invoicing.Application.exe /Gui=false /Database=c:\Users\THIERRYAIS\Documents\DOSSIER.ebp;EBPSDK /Import="D:\CLIENT\DOSSIER\FTP\EXPEDITION\IMPORTEBP\CR_PRE20200611145811122.CSVEBP.csv;TemporarySaleInvoices;FACTURE CLD"

Cette commande ajoute systématiquement 2 "" dans la variable texte de l'argument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\Programme\EBP\Invoicing12.2FRFR40\EBP.Invoicing.Application.exe /Gui=false /Database=c:\Users\THIERRYAIS\Documents\DOSSIER.ebp;EBPSDK /Import=""D:\CLIENT\DOSSIER\FTP\EXPEDITION\IMPORTEBP\CR_PRE20200611145811122.CSVEBP.csv;TemporarySaleInvoices;FACTURE CLD"""

et je ne parviens pas a obtenir un bon fonctionnement

Merci a tous

pour information cet argument me permet de faire des imports de données dans un logiciel

[ProgElecT]

Salut

Comment est ajoutée dynamiquement la partie argument ?
Il serait intéressant/nécessaire d'avoir ton code de la construction de cette ligne de commande.

[Twetty56]

Bonjour

voici le code pour lancer le traitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub RunCMD(command As String, Optional ShowWindow As Boolean = False, Optional WaitForProcessComplete As Boolean = False, Optional permanent As Boolean = False)
 
        Dim p As Process = New Process()
        Dim pi As ProcessStartInfo = New ProcessStartInfo()
 
        pi.Arguments = command
        pi.FileName = "cmd.exe"
        pi.Verb = "runas"
        pi.CreateNoWindow = Not ShowWindow
        If ShowWindow Then
            pi.WindowStyle = ProcessWindowStyle.Normal
        Else
            pi.WindowStyle = ProcessWindowStyle.Hidden
        End If
        pi.UseShellExecute = False
        p.StartInfo = pi
        p.Start()
        If WaitForProcessComplete Then Do Until p.HasExited : Loop
 
    End Sub

et voici le code qui génère l'argument actuellement j'ai fait un essai avec l'argument stocké dans un fichier

mais j'ai fait d'autre essai en construisant le contenu de l'argument a partir d'une variable texte et des données stockées en paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
            'Lecture Fichier Origine
            sr = New StreamReader("D:\DEVELOPPEMENT\BL\cmd.txt", System.Text.Encoding.UTF8)
 
            'met le contenu dans une variable texte
            m_ContenuFichier = sr.ReadToEnd
 
            R = Split(m_ContenuFichier, vbLf)
 
            'Ferme le fichier
            sr.Close()
 
            m_ContenueCommande = R(0)
 
            m_AncienFichier = "CR_PRE20200611145811122.CSVEBP.csv"
 
            m_NouveauFichier = Strings.Replace(strFichier, "D:\CLIENT\DOSSIER\FTP\EXPEDITION\", "")
 
            m_NouveauFichier = Strings.Left(m_NouveauFichier, Strings.Len(m_NouveauFichier) - 4)
 
            m_NouveauFichier = m_NouveauFichier + "EBP.csv"
 
            m_ContenueCommande = Strings.Replace(m_ContenueCommande, m_AncienFichier, m_NouveauFichier)
 
            m_ContenueCommande = Strings.Replace(m_ContenueCommande, Chr(34) + Chr(34), Chr(34))
 
            'Execute(File, m_ContenueCommande)

et le contenu du fichier

C:\Programme\EBP\Invoicing12.2FRFR40\EBP.Invoicing.Application.exe /Gui=false /Database=c:\Users\THIERRYAIS\Documents\DOSSIER.ebp;EBPSDK /Import="D:\CLIENT\DOSSIER\FTP\EXPEDITION\IMPORTEBP\CR_PRE20200611145811122.CSVEBP.csv;TemporarySaleInvoices;FACTURECLD"

Merci de ta réponse