'
'このサンプルプログラムはVisual Basic 5.0以上で動作します。
'
'----------  このサンプルプロジェクトの作成手順  ----------
'
'�@ Visual Basic を起動する。
'�A「ファイル」メニューの「新しいプロジェクト」をクリックして、
'  「新規作成」タブの「ActiveX EXE」をダブルクリックする。
'�B「プロジェクト」メニューから「標準モジュールの追加」をクリックして、
'  「新規作成」タブの「標準モジュール」を開く。
'�C「プロジェクト」メニューから「フォームモジュールの追加」をクリックして、
'  「新規作成」タブの「フォームモジュール」を開く。
'�D「プロジェクト」メニューから「Project1のプロパティ」をクリックして、
'  「プロジェクトプロパティ」ダイアログボックスの「全般」タブの中の
'  「スタートアップの設定」を「Sub Main」にする。
'�E 次に「コンポーネント」タブをクリックして、「スタートモード」を
'   「独立型」にして、「OK」を押す。
'�F「プロジェクト」メニューから「参照設定」をクリックして「参照」ボタンを押し、
'   F*TRANの提供テーブルファイル(Ftwin.tlb)を開く。
'   リストボックスに「Ftwin」が表示され、チェックが着いていることを確かめて、
'  「OK」ボタンを押す。
'�G クラスモジュールのプロパティの「Instancing」が「５−MultiUse」に
'   なっているか確かめる。
'�H 必要に応じてフォームを編集する(ここではForm1にボタンを２つ追加している）。
'�I 以下のようにコードを実装し、「ファイル」メニューの「Project1.exeの作成」を
'   クリックする。

'-------------------  標準モジュール  --------------------
'
Option Explicit
Sub Main()
 Form1.Show
End Sub


'-----------------  フォームモジュール  ------------------
'
Option Explicit
Dim FtCmd As Ftwin.FtCmd
'変換が正常に終了したら、その内容を表示する
'
Private Sub Command1_Click()
 Dim ret As Long
 Dim command As String
 Dim msg As String
 
 '変換コマンド(ここでは"getdata")において、変換元・先ファイルを絶対パスで
 '指定しない場合は、カレントディレクトリをあらかじめ指定しておく必要がある
 ChDrive "c:"
 ChDir "c:\FTRANP"
 ret = FtCmd.SetCurrentDirectory("c:\FTRANP")
 
 'エラー処理
 If ret <> 0 Then
  msg = "FtCmd.SetCurrentDirectoryにてエラーが発生しました。" _
        & Chr(13) & "エラー番号：" & ret
  MsgBox msg, vbOKOnly, "F*TRAN+"
  Exit Sub
 End If
 
 'ここではパラメータファイルのパスが省略されているので、パラメータファイルを
 'F*TRANと同じフォルダに格納する必要がある
 command = "/nwd /wc/ getdata Planet *.txt ++pngetprn.p"
 ret = FtCmd.command(command)
 
 'エラー処理
 If ret <> 0 Then
  '提供ファイルFtDef.hに定義されている終了コードを取得する
  ret = FtCmd.GetLastFtErrorCode
  msg = "FtCmd.commandにてエラーが発生しました。" _
        & Chr(13) & "エラー番号：" & ret
  MsgBox msg, vbOKOnly, "F*TRAN+"
 End If
 
 '変換結果をメモ帳で表示
 Shell "notepad.exe Planet.txt", vbNormalFocus
End Sub

Private Sub Command2_Click()
 'サーバーオブジェクトへの接続を開放する
 Set FtCmd = Nothing
 End
End Sub

Private Sub Form_Load()
 'サーバーオブジェクトを作成する
 Set FtCmd = New Ftwin.FtCmd
End Sub

Private Sub Form_Unload(Cancel As Integer)
 'サーバーオブジェクトへの接続を開放する
 Set FtCmd = Nothing
End Sub