CSubFileExport使用マニュアル

FormのAfterイベントコード
    '---- CSubFileExportの戻り値を格納する変数
    Dim Res as Integer
    
    '---- CSubFileExportが使用可能かを調べる
    Res=AppLaunch(0,"CSubFileExport",32768+3,0)
    If Res=0 Then
        '---- 戻り値が0なら利用可能
        MsgBox "CSubFileExportが利用可能です"
    Else
        '---- 戻り値が0以外なら利用不可
        MsgBox "CSubFileExportは利用不可です"
        Stop
    End If

初めにCSubFileExportが利用出来るデバイスかどうかを必ずチェックして下さい。
このサンプルではフォームAfterイベント内でCSubFileExportが利用可能かをチェックしていますが
どこのイベントで判定するかは自由です。
実際にCSubFileExportが使われる前にチェックしておけばオッケーだと思います。

新規、上書き処理
    '---- CSubFileExportからの戻り値を格納する変数
    Dim Res as Integer
    '---- CSubFileExportに渡すパラメータを格納する変数
    Dim vcs as String
    '---- ファイル名を格納する変数
    Dim FileName as String
    '---- Exportするテキストを格納する変数
    Dim strData as String
    
    '---- Exportする文字列があるかをチェック
    If Field1004.Text="" Then Exit Sub
    '---- Exportするファイル名をセット
    FileName="CSFE_Test.txt"
    '---- Exportするテキスト内容をセット
    strData=Field1004.Text
    '---- CSubFileExprotに渡すデータをセット(ファイル名/テキスト内容)
    vcs=FileName+"/"+strData
    '---- CSubFileExprotを実行(新規(上書き)モード)
    Res=AppLaunch(0,"CSubFileExport",32768+1,vcs)
    If Res=0 Then
        '---- 戻り値が0ならば書き込み成功
        MsgBox "MCへの新規(上書)書き込みが成功しました。"
    Else
        '---- 戻り値が0以外ならば書き込み失敗
        MsgBox "MCへの新規(上書)書き込みが失敗しました。"
    End If
ここで実際に書き込みの処理を行います。
まず、空っぽのデータを書き出しても仕方が無いので、データがあるかどうかを判定しています。
次にメモリーカードへ書き出すファイル名を指定します。
ファイル名とデータを区切り文字'/'を間に入れてCSubFileExportに渡すデータを作ります。
今回は新規、上書き処理なのでCSubFileExportへのコマンドが32768+1になります。

追記処理
    '---- CSubFileExportからの戻り値を格納する変数
    Dim Res as Integer
    '---- CSubFileExportに渡すパラメータを格納する変数
    Dim vcs as String
    '---- ファイル名を格納する変数
    Dim FileName as String
    '---- Exportするテキストを格納する変数
    Dim strData as String
    
    '---- Exportする文字列があるかをチェック
    If Field1004.Text="" Then Exit Sub
    '---- Exportするファイル名をセット
    FileName="CSFE_Test.txt"
    '---- Exportするテキスト内容をセット
    strData=Field1004.Text
    '---- CSubFileExprotに渡すデータをセット(ファイル名/テキスト内容)
    vcs=FileName+"/"+strData
    '---- CSubFileExprotを実行(追記モード)
    Res=AppLaunch(0,"CSubFileExport",32768+2,vcs)
    If Res=0 Then
        '---- 戻り値が0ならば書き込み成功
        MsgBox "MCへの追記書き込みが成功しました。"
    Else
        '---- 戻り値が0以外ならば書き込み失敗
        MsgBox "MCへの追記書き込みが失敗しました。"
    End If
追記書き込みの処理もほとんど、新規、上書き処理と変わりません。
変わるところといえば、CSubFileExportへのコマンドが32768+2となる事ぐらいです。