VB Code:
  1. Open "C:\Windows\system32\newtext.txt" For Append As #1
  2.                     Print #1, "test"
  3.                     Close #1
  4.            
  5.                     If Not File_Exists(GetFile("test.txt")) Then
  6.                         MkDir "C:\folder-test"
  7.                     End If
  8.                    
  9.                     Open GetFile("test.txt") For Append As #1
  10.                     Print #1, "test2"
  11.                     Close #1