by たかせ » 2016年10月06日(木) 21:52
上記の件のサンプルです。
CONST CRLF = EX"\r\n"
DIM ACCSBYTE AS DWord
DIM DAT AS WIN32_FIND_DATA
DIM HFILED AS HANDLE
DIM PATH[255] AS Char
HFILED = FindFirstFile("D:\APPLTEST\A\*.TXT",DAT)
DO
IF HFILED = INVALID_HANDLE_VALUE THEN
MessageBox(NULL,"削除データがありませんでした。","TEST",MB_OK)
EXIT DO
END IF
lstrcpy(PATH,"D:\APPLTEST\A\")
lstrcat(PATH,DAT.cFileName)
IF DeleteFile(PATH) = 0 THEN
MessageBox(NULL,"DeleteFileエラー発生しました。","TEST",MB_OK)
ELSE
lstrcat(PATH,"を削除しました。")
MessageBox(NULL,PATH,"TEST",MB_OK)
END IF
LOOP UNTIL FindNextFile(HFILED,DAT) = 0
FindClose(HFILED)
RemoveDirectory("D:\APPLTEST\A")
MessageBox(NULL,"処理終了しました。","TEST",MB_OK)
END
WIN32 APIについての詳細はABのヘルプに載っていると思いますのでご確認下さい。
上記の件のサンプルです。
CONST CRLF = EX"\r\n"
DIM ACCSBYTE AS DWord
DIM DAT AS WIN32_FIND_DATA
DIM HFILED AS HANDLE
DIM PATH[255] AS Char
HFILED = FindFirstFile("D:\APPLTEST\A\*.TXT",DAT)
DO
IF HFILED = INVALID_HANDLE_VALUE THEN
MessageBox(NULL,"削除データがありませんでした。","TEST",MB_OK)
EXIT DO
END IF
lstrcpy(PATH,"D:\APPLTEST\A\")
lstrcat(PATH,DAT.cFileName)
IF DeleteFile(PATH) = 0 THEN
MessageBox(NULL,"DeleteFileエラー発生しました。","TEST",MB_OK)
ELSE
lstrcat(PATH,"を削除しました。")
MessageBox(NULL,PATH,"TEST",MB_OK)
END IF
LOOP UNTIL FindNextFile(HFILED,DAT) = 0
FindClose(HFILED)
RemoveDirectory("D:\APPLTEST\A")
MessageBox(NULL,"処理終了しました。","TEST",MB_OK)
END
WIN32 APIについての詳細はABのヘルプに載っていると思いますのでご確認下さい。