Error de compliación de Mirosoft VBScript

[cecondel]

Al probar este sencilo .vbs, me da el mensaje que no se puede utilizar paréntesis al llamar un Sub, con código de error 800A0414, esto es en la línea 5:

For Each foundFile In _
My.Computer.FileSystem.GetFiles("C:\Documents and Settings")
foundFile = foundFile & vbCrLf
My.Computer.FileSystem.WriteAllText _
("C:\Documents and Settings\FileList.txt",foundFile,True)
Next

Podría, alguien ayudarme a saber porque da este error, si le quito los parénesis me da otro error.
Gracias de antemano por su ayuda.

[boluart]

y que es lo que quieres hacer?, trato de entender tu codigo pero no puedo haber pero si te sirve aqui te muestro como se recorre el bucle:


For Each foundFile As String In My.Computer.FileSystem.GetFiles("C:\Documents and Settings")
My.Computer.FileSystem.WriteAllText("C:\Documents and Settings\FileList.txt", foundFile, True)
Next

y WriteAllText es para escribir en un archivo de texto.

[cecondel]

Gracias por tu respuesta, lo que estoy tratando de hacer es ejemplificar el grabar en un archivo de texto los nombres de los archivos de mis documentos por medio de la instrucción: My.Computer.FileSystem.WriteAllText.
Pero me da el error mencionado, y no se que puede ser.

[boluart]

A mi no me salio ningun error , claro que no lo ejecute, solo lo compile , pero no me salio nigun error, con que version de vb.net estas trabajando?, y que error te muestra?