子ディレクトリにテキストファイル書き込み

アプリケーションを実行しているカレントディレクトリの子ディレクトリにアプリの設定などを保存したい場合の処理。

//tmpは書き込みたい内容
Dim cr as String
cr=EndOfLine.Windows //crにWindowsの改行コード(CR+LF)を代入
Dim tmp as string //tmpは書き込み内容
tmp="test"+cr+"test"
tmp=ReplaceLineEndings(tmp, EndOfLine.Unix) //tmpの改行コードをUnix(LF)に変換
//上記でWindowsを指定した意味がなくなるが、メモとしてあえて。
tmp=ConvertEncoding(tmp, Encodings.UTF8) //tmpの文字コードをUTF8に変換

Dim f As FolderItem
Dim t as TextOutputStream
f = GetFolderItem("settings") //settingsフォルダを指定
if not f.Exists then //もし存在しなければフォルダ作成
f.CreateAsFolder
end if
f = GetFolderItem("").Child("settings").Child("test.txt")
//現在のディレクトリからsettings子フォルダ→test.txtファイルを指定
t = f.CreateTextFile
t.Write tmp
//テキストファイルとしてtmpの内容を書き込み
t.Close

以上のコードが実行されると、アプリケーションがあるフォルダの下に
/settings/text.txtという具合にフォルダとファイルができあがります。

追記。
改行コードは直接
Chr(13)+Chr(10) //CR+LF (Windows)
Chr(13) //CR (Mac)
Chr(10) //LF (Unix)
と、書いてもいいのね。
ちなみに、Chr(9)とChr(8)はタブとバックスペース。