PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 23771 | 11/03/22 15:26:28 | RE(4):PB11.5 でのファイル削除 By mn |
| 23770 | 11/03/11 21:18:39 | RE(3):PB11.5 でのファイル削除 By ZONE |
| 23769 | 11/03/11 10:04:18 | RE(2):PB11.5 でのファイル削除 By mn |
| 23766 | 11/03/10 15:06:57 | RE(1):PB11.5 でのファイル削除 By ZONE |
| 23765 | 11/03/07 20:52:03 | PB11.5 でのファイル削除 By mn |
カテゴリ：スクリプトの記述
日付：2011年03月07日 20:52 発信者：mn
題名：PB11.5 でのファイル削除
ＰＢ９→ＰＢ１１．５に移行中です。
そこで、ＰＢ９で動作していた”指定ディレクトリ内の全ファイル削除”がＰＢ１１．５になったら、動作でき
なくなりました。（エンコードの関係かな？）
宣言文、スクリプトは、下記のとおりです。
///////宣言文
Function Long lstrcatA(REF String dst,String src) LIBRARY \"KERNEL32.DLL\" alias for \"lstrcatA;Ansi\"
Function Long lstrcatA(REF Blob dst,String src) LIBRARY \"KERNEL32.DLL\" alias for \"lstrcatA;Ansi\"
Function Long SHFileOperationA( Ref ustr_shfileop str1) LIBRARY \"SHELL32.DLL\" alias
for \"SHFileOperationA;Ansi\"
///////スクリプト
ustr_shfileop LSTR_FOP
STRING WKS
BLOB BLB1,BLB2
BLB1 = BLOB(\"C:\\TEMP\\*.*\")
BLB2 = BLOB(\"\")
WKS = \"削除\"
LSTR_FOP.fd01_hwnd = 0
LSTR_FOP.fd02_WFUNC = 3
LSTR_FOP.fd03_PFROM = lstrcatA(BLB1,\"\")
LSTR_FOP.fd04_PTO = lstrcatA(BLB2,\"\")
LSTR_FOP.fd05_fflags = 20
LSTR_FOP.fd06_fanyop = 1
LSTR_FOP.fd07_fnamemap = 0
LSTR_FOP.fd08_ptitle = lstrcatA(WKS,\"\")
SHFileOperationA(LSTR_FOP)
///////////////////////////////
皆様のお知恵拝借したく。。。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows XP
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.