[AC-2003] Écriture dans un fichier sans ""

[pasdoy]

Bonjour à tous,
je dois créer un programme pour envoyé des " Net send " aux autres utilisateur. Je génère un fichier .bat, l’exécute, puis le supprime. Le problème est que quand j'écris dans le fichier, les " " reste au début et à la fin de la ligne donc ma commande net send ne s'envoi pas. Comment puis-je écrire sans les guillemets?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande14_Click()
Dim fs As Object, fsoFile As Object, Message As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("temp.bat", True)
a.Close
Message = "net send P104736 test test"
Open "temp.bat" For Output As #1
Write #1, Message
Close #1
'Call Shell(Environ$("COMSPEC") & " /c  temp.bat", vbNormalFocus)
 
'Set fsoFile = fs.GetFile("temp.bat")
'fsoFile.Delete
 
End Sub

[jpcheck]

Salut,

le code propose dans la
me semble correspondre a ce que tu souhaites faire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function EcrireFichierTexte(strText As String, strpathfile As String) As Boolean
Dim F As Integer
On Error GoTo fin
    F = FreeFile
    Open strpathfile For Append As #F
    Print #F, strText
    Close #F
    EcrireFichierTexte = True
    Exit Function
fin:
If err.Number = 61 Then ' accès en écriture du fichier non accepté
    EcrireFichierTexte = False
End If
End Function