Bonjour,  
Je suis un débutant en Vbscript.  
Je récupére une chaine de caracteres dans arrServiceList(i). J'essaye d'ecrire arrServiceListe(0) dans un fichier.  
je met dans le code MyFile.Write arrServiceList(i) mais ca me rend l'erreur type incompatible.  
 
Aidez moi SVP

poste ton code, c'est difficile de te donner la raison d'une erreur sans le code.

voila le code
 
CreateAfile
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objTextFile = objFSO.OpenTextFile _
    ("C:\Documents and Settings\user\Bureau\Dev_SMS\TestSMS\Nouveau\Ack1.txt", ForReading)
Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
    arrServiceList = Split(strNextLine , " " )
    Wscript.Echo "Server name: " & arrServiceList(0)
    For i = 1 to Ubound(arrServiceList)
        Wscript.Echo "Service: " & arrServiceList(i)
    Next
Loop
 
Sub CreateAfile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject" )
   Set MyFile = fso.CreateTextFile("C:\Documents and  
 
Settings\user\Bureau\Dev_SMS\TestSMS\Nouveau\testfile.txt", True)
   MyFile.Write arrServiceList(1)
MyFile.Close
End Sub

ça te fait une erreur parce que "arrServiceList" est vide au moment ou tu fais "MyFile.Write arrServiceList(1)"

C'est quoi la solution ?

A quoi sert la procedure CreateAfile ?

C bon. En fait il fallait appeler creaAfile apres la fonction.