| 種別 | DocuWorksファイル |
|---|---|
| 説明 | DocuWorks文書の添付ファイル（オリジナルデータ）の 取出、挿入、削除などを行う。  |
| 構文 | XdwAttachFile(sts[, InOutFile][, FilePath][, FileNo]) |
| 引数 | sts ：1=取出、2=挿入、3=削除、4=取出と同時に削除、 5=ファイル数を取得、 6=ファイル名を取得（ファイルパスではありません） InOutFile：入出力ファイルのパス名。 フォルダがない場合は、自動的に作成。（取出や挿入時は必須） 取出時にフォルダ（最後に「\」マーク）が指定された場合は、 そこに元ファイル名で保存 入れ物を指定することで、ファイルの取出と挿入ができる。 FilePath ：DocuWorksファイルパスを指定。 （指定しなければ、現在編集中のDocuWorksファイル） FileNo ：処理する添付ファイル番号。 1から始まる。最後に追加なら、添付ファイル数+1。（初期値は、1） ※ 指定しない場合は、全ファイルを取出／削除 |
| 戻り値 | 成功時は1、失敗時は0。sts=5ならファイル数。sts=6ならファイル名。 |
| 使用例 | Dim sXdw,sFile,cnt,sDir,i,sExt sXdw = "C:\aaa\bbb\abc.xdw" sFile = "C:\ddd\eee\fff.xls" sDir = "C:\ddd\eee\"'必ず最後に「\」マークを指定すること。 '指定ファイルから、添付ファイルを取出 XdwAttachFile(1, sFile, sXdw, 4) '指定ファイルに、添付ファイルを挿入 XdwAttachFile(2, sFile, sXdw, 4) '指定ファイルから、４番目の添付ファイルを元ファイル名で取出XdwAttachFile(1, sDir, sXdw, 4) '指定ファイルから、添付ファイルを削除 XdwAttachFile(3, , sXdw, 4) '現在編集中のファイルから、添付ファイルを取出＆削除 XdwAttachFile(4, sFile, , 5) '現在編集中のファイルに、添付ファイルを挿入 XdwAttachFile(2, sFile) '現在編集中のファイルから、添付ファイルを取出しと同時に削除 XdwAttachFile(4, sFile, , 5) '現在編集中のファイルに、１番目に添付ファイルを挿入 XdwAttachFile(2, sFile) '現在編集中のファイルから、指定したフォルダに、元のファイル名で取り出す cnt = XdwAttachFile(5) for i=1 to cnt sFile = sDir & XdwAttachFile(6,,,i) 'ファイル名の取得 XdwAttachFile(1,sFile,,i) '指定フォルダにファイル名を取出 next i '入れ物ファイルからファイルを取出し、指定フォルダに保存する sXct = #FILE_DIR# & "クリアフォルダ.xct" sDir = #FILE_DIR# & "クリアフォルダ\" cnt = XdwAttachFile(5, , sXct) for i=1 to cnt sFile = sDir & XdwAttachFile(6,,sXct,i) 'ファイル名の取得 XdwAttachFile(1,sFile,sXct,i) '指定フォルダにファイル名を取出 next i '指定したフォルダにあるファイルを全て、入れ物に挿入する sDir = #FILE_DIR# & "クリアフォルダ\" sOrg = #FILE_DIR# & "空の入れ物.xct" sXct = #FILE_DIR# & "新規作成の入れ物.xct" FileCopy(sOrg, sXct) ’入れ物ファイルの原本をコピーする cnt = FileDir(sDir & "*.*") '全ファイルを取得 For i=1 to cnt 'Forループで、必要な回数を回してください。 sFile = FileDir()'ファイルパスの取得 XdwAttachFile(2, sFile, sXct, 1) '入れ物にファイルを挿入 Next i ※ 仕様上、現在編集中のファイルを処理する場合は、添付ファイル番号の位置を保証できません。 ※ 現在編集中のファイルで挿入する場合、同じファイル名が存在したら、入替（上書き）します。 |
| 実例 | |
| 備考 | 関連する関数（XdwInsert、XdwProperty、XdwGetPage、XdwAttachFile、XdwChgData、XdwFindText
、XdwPageImage、XdwAppChg、XdwBinder、XdwUserAttr、XdwUserAttrX、XdwClose） ver4.2以降 |