種別 | ファイル入出力 |
---|---|
説明 | 編集しているDocuWorks文書、バインダーを保存する。 保存後は、自動的に保存したファイルを再読込みします。 |
構文 | SaveFile([FilePath][, sts][, upl][, chk]) |
引数 | FilePath:保存するファイルのファイルパスを指定します。 指定しない場合は、上書き保存します。 sts :1=印刷保存、 2=バックグランド保存&終了、 3=保存&終了、4=保存&終了&元ファイル削除 5=保存後にファイル名を変更 (連続して、ファイル名を変更しながらSaveFileする場合に使用) upl :保存&終了時なら、自動的にアップロードを行う。 1=表示する、2=表示しない chk :1=必須入力のチェックをしない。 |
戻り値 | 保存に成功「1」、失敗「0」、必須入力なしで失敗「2」 |
使用例 | SaveFile()'上書き保存 Dim s,sOrg,s1 sOrg = #FILE_PATH# '元ファイル名を保存しておく s = #FILE_DIR# & #FILE_NAME# & Format(Now(), "_yyyymmdd_hhnnss") SaveFile(s)'現在のファイルパスに日付を加えて、保存する。 SaveFile(s, 1)'現在のファイルパスに日付を加えて、印刷保存する。 SaveFile(s, 2)'バックグランド保存、終了。 SaveFile(s, 3, 1)'保存終了+表示で自動アップロード SaveFile(s, 4, 2)'保存終了、元ファイル削除+非表示で自動アップロード SaveFile(,,,1) '必須入力なしで、上書きする SaveFile(s,,,1)'必須入力なしで、現在のファイルパスに日付を加え保存 If SaveFile(s, 4) <> 1 Then Exit Sub'保存に失敗した End If s = #DESKTOP# & #FILE_NAME# s1 = #DESKTOP# & #FILE_NAME# & "_SUB" SaveFile(s, 5) '連続して保存する場合は、5を指定する。 SaveFile(s1, 5) LoadFile(sOrg) '保存後に、元ファイルを読込む |
実例 | |
備考 | ファイル名として使用できない文字列は「\:/*?<>|"」です。 関連する関数(DataFileLoad、DataFileSave、DefinitionLoad、 DefinitionSave、TextFileLoad、TextFileSave、CsvData、CsvSrch、 SaveFieldCsv、LoadFile、SaveFile、SavePdf、AutoNumbering、 ChgFileName) |