FileOpen(1, "c:\MyFile.txt", OpenMode.Output)
For I = 0 To iCpt - 1
WriteLine(1, myDs.Tables(0).Rows(I).Item("MyText"))
Next
FileClose(1)

--> In place of : FileOpen(1, "c:\MyFile.txt", OpenMode.Output)
--> I would like : FileOpen(1,"c:\Documents and settings\[USER]\My
Documents", OpenMode.Output)

dim Dirname, fullname as string

Dirname = Environment.GetFolderPath( _
    Environment.SpecialFolder.Personal _
)

fullname = io.path.combine(dirname, "myfile.txt")

dim Myfolder as string =
Environment.GetFolderPath(Environment.SpecialFolder.Personal)

Sub y
dim a as integer  = 1
end sub