Discussion :

[dave5]

Bonjour,

Après avoir réaliser une interface sous visual studio pour exécuter un fichier.vbs (script) avec des valeurs qui peuvent étre choisis par l'utilisateur en remplacant les variables par les bons champs text etc j'obtiens cette erreur et je ne vois pas comment la résoudre :




Merci pour votre aide

[wallace1]

bonsoir,

au regards de l exception je dirais que ton appli ne trouve pas un fichier....mais si tu postais ton code on t'orienterait davantage vers la bonne direction.

a+

[dave5]

Oui bien sur j'exécute un premier vbs en écrivant son code qui me créera un second vbs que j'exécute avec un Run voici mon code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
    Private Sub BtnBoundary_Click(sender As Object, e As EventArgs) Handles BtnBoundary.Click
 
 
        REM ================  Ecriture du fichier s ================
        '---------------------Copie du contenu du fichier Model.vbs ligne par ligne------
 
 
        Const ForReading = 1, ForWriting = 2
        Dim fso, folder, f1, f2, f3, ligneFichier, Left, Lcase, a, b, c, d, g, h, u
        Dim Chr As Object
        Dim ligneFichier1 As Object
        folder = "C:\Users\Desktop\Fichiers txt scripts\Boundary"
        fso = CreateObject("Scripting.FileSystemObject")
        f1 = fso.OpenTextFile(folder & "\partie1.vbs", ForReading, True)
        f2 = fso.CreateTextFile("C:\Temp\CFD\Boundary.vbs", ForWriting, True)
        f3 = fso.OpenTextFile(folder & "\partie2.vbs", ForReading, True)
        '---------------Ecriture des lignes jusqu a start-------------
        'While ligneFichier1 <> "REM START" 
        'ligneFichier1 = f1.ReadLine 'Lire Le fichier source ligne par ligne
        'MsgBox ligneFichier1
        'f2.Writeline ligneFichier1 ' Copier les lignes du fichier source sur le fichier destination
        'decoupeLigne = Split(ligneFichier1, ("=")'Découper les lignes intéressantes en deux parties avant et après le symbole "="
        'MsgBox decoupeLigne(0)
        'MsgBox decoupeLigne(1)
        'wend
        Do While Not f1.AtEndOfStream
            ligneFichier1 = f1.ReadLine
            If InStr(1, ligneFichier1, "=", vbTextCompare) = 3 Then ' Retourner que les occurences ou le symbole (=) a comme position 3 dans le fichier model.vbs en utilisant la comparaison textuelle
 
 
                Select Case LCase(Left(ligneFichier1, 1)) 'Lcase pour convertir les majescules en miniscule, Left pour pointer vers le caractère a gauche de ligneFichier1 de longueur 1
 
                    Case "a"
                        f2.WriteLine("a = " & Chr(34) & "800" & Chr(34))
                    Case "b"
                        f2.WriteLine("b = " & Chr(34) & "101325" & Chr(34))
                    Case "c"
                        f2.WriteLine("c = " & Chr(34) & "0.22" & Chr(34))
                    Case "d"
                        f2.WriteLine("d = " & Chr(34) & "1" & Chr(34))
                    Case "v"
                        f2.WriteLine("v = " & Chr(34) & "5" & Chr(34))
                    Case "g"
                        f2.WriteLine("g = " & Chr(34) & "3000" & Chr(34))
                    Case "h"
                        f2.WriteLine("h = " & Chr(34) & "8" & Chr(34))
                    Case "u"
                        f2.WriteLine("u = " & Chr(34) & "1.5" & Chr(34))
                    Case Else
                        f2.Writeline(ligneFichier1)  ' Ecrire les paramètres dans le fichier 2
                End Select
            End If
 
        Loop
        ligneFichier = f3.ReadAll ' Lire toutes les lignes du fichier 3
 
 
        f2.Writeline(ligneFichier1 & ligneFichier) ' Assembler les deux fichiers pour constituer le fichier qui nous servira de base pour exécuter le fichier s
 
        f1.Close
        f2.Close
        f3.Close
        f1 = Nothing
        f2 = Nothing
        f3 = Nothing
        fso = Nothing
        Dim pShell
        folder = "C:\Users\anourlil_stag@mecaplast.com\Desktop\interface"
 
        pShell = CreateObject("WScript.Shell")
        pShell.Run(folder & "\Boundary.vbs")
 
    End Sub

[dave5]

Dans les cases a, b, .... je mettrai les valeurs de mes Textbox, j'ai essayé mais j'obtiens l'erreur citée précedemment

[casiii]

Ca saute sur f1, f2 ou f3 ?

[dave5]

Je n'ai pas compris, f1, f2 et f3 sont des objets pour lire et écrire dans les fichiers vbs en format txt avant l'exécution sur visual studio j'en ai pas d'erreur de ligne de code mais j'ai l'erreur au moment de l'exécution de n'importe quelle boutton de l'interface.