次のプログラムは、既に存在するレコード長100バイトのバイナリファイル "c:\copyin" を、バイナリファイル "c:\copyout" に出力するコードの記述例です。
Private Sub Command1_Click() 'エラーメッセージを表示しない旨を指定します。 PowerSORT1.DispMessage = False 'コピー処理を指定します。 PowerSORT1.DisposalNumber = 2 '入力ファイル名を指定します。 PowerSORT1.InputFiles = "c:\copyin" '入力ファイル種別にバイナリ固定長を指定します。 PowerSORT1.InputFileType = 1 '出力ファイル名を指定します。 PowerSORT1.OutputFile = "c:\copyout" '出力ファイル種別にバイナリ固定長を指定します。 PowerSORT1.OutputFileType = 1 'レコード長は100バイトです。 PowerSORT1.MaxRecordLength = 100 'PowerSORTのDLLを呼出し実行します。 PowerSORT1.Action 'エラー検出時の処理。 If PowerSORT1.ErrorCode <> 0 Then Msgbox "PowerSORTでエラーを検出しました。" & " ErrorDetail=" & PowerSORT1.ErrorDetail Exit Sub End If End Sub