Q&A
- 하위 디렉토리와 파일을 모두 지우는 방법좀 알려주세여..
질문> 해당디렉토리와 폴더를 모두 지우는 소스입니다.
그런데 이게 잘 안되네요...
폴더에 파일이 없어도 안되는데...
해당 디렉토리와 파일을 모두 지우는 좋은 방법 있으면
답변부탁드립니다.
procedure TForm1.Button1Click(Sender: TObject);
var
DirInfo: TSearchRec; // 디렉토리의 정보를 나타낸다.
r : Integer;
begin
r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar('C:Downloadtest' + DirInfo.Name)) = false then
ShowMessage('Unable to delete : C:Downloadtest' + DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
if RemoveDirectory('C:DownloadTest') = false then
ShowMessage('Unable to delete direcotry : C:Downloadtest');
end;
그런데 이게 잘 안되네요...
폴더에 파일이 없어도 안되는데...
해당 디렉토리와 파일을 모두 지우는 좋은 방법 있으면
답변부탁드립니다.
procedure TForm1.Button1Click(Sender: TObject);
var
DirInfo: TSearchRec; // 디렉토리의 정보를 나타낸다.
r : Integer;
begin
r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar('C:Downloadtest' + DirInfo.Name)) = false then
ShowMessage('Unable to delete : C:Downloadtest' + DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
if RemoveDirectory('C:DownloadTest') = false then
ShowMessage('Unable to delete direcotry : C:Downloadtest');
end;
2
COMMENTS
-
-
파이파이 wrote:
> 질문> 해당디렉토리와 폴더를 모두 지우는 소스입니다.
> 그런데 이게 잘 안되네요...
> 폴더에 파일이 없어도 안되는데...
>
> 해당 디렉토리와 파일을 모두 지우는 좋은 방법 있으면
> 답변부탁드립니다.
>
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> DirInfo: TSearchRec; // 디렉토리의 정보를 나타낸다.
> r : Integer;
> begin
> r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo);
> while r = 0 do begin
> if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
> (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
> if DeleteFile(pChar('C:Downloadtest' + DirInfo.Name)) = false then
> ShowMessage('Unable to delete : C:Downloadtest' + DirInfo.Name);
> r := FindNext(DirInfo);
> end;
>
> SysUtils.FindClose(DirInfo);
> if RemoveDirectory('C:DownloadTest') = false then
> ShowMessage('Unable to delete direcotry : C:Downloadtest');
> end;
이렇게하시면 한방에 날려버릴 수있는데....!!!!
WinExec('COMMAND.COM /c deltree/y c:temp', SW_SHOWNORMAL);
(NOTICE) You must be logged in to comment on this post.
-
- 김범수
- •
- 2001.01.12 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
액션가면•2001.01.12 23:52안녕하세여... Query는 TDataSet의 자식입니다.. TDataSet의 Open프로시져를 찾아보면 아래와같습니다....
-
- 델파이초보
- •
- 2001.01.12 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
손상수•2001.04.19 20:01죄송한데요... 이거 혹시 해결하셨나요? 저두 이것땜에 5일째 고민 중이랍니다. 염치없지만 해결하셨다...
-
- 아챙피...
- •
- 2001.01.12 22:57
- 2 COMMENTS
- /
- 0 LIKES
-
^___^•2001.01.13 00:35혹시 edit 명령 실행하셨나여..state가 edit상태가 아닌 거 같은데 전 전에 잘되써꺼덩여 혹시 안하...
-
아챙피...•2001.01.16 02:21물론 했습니다.. trace로 따라가보면 tablename.edit 이 부분에서 error가 납니다.. T_T; ^___...
-
-
스나이퍼•2001.01.13 00:39디비는 뭘쓰시는데여..mysql은..필드 생성할때... 필드 속성을 Auto_increment로 잡음 되는데..sql도 아...
-
hope•2001.01.13 00:59음...디비는 dBase을 사용하구 있는데여.. MSACCESS로 바꾸려구요... MSACCESS에서는 어케해야돼져..?? ...
-
Webcome•2001.01.13 16:54가장 쉬운 방법으로는 access를 이용해 테이블을 디자인할 때 필드 속성을 일련번호로 해주면 되져..^^ ...
-
-
- 파이파이
- •
- 2001.01.12 22:45
- 2 COMMENTS
- /
- 0 LIKES
질문> 해당디렉토리와 폴더를 모두 지우는 소스입니다. 그런데 이게 잘 안되네요... 폴더에 파일이 없어도 안되는데... 해당 디렉토리와 파일을 모두 지우는 좋은 방법 있으면 답변부탁드립니다. procedure TForm1.Button1Click(Sender: T...-
최영근•2001.01.13 02:41안녕하세요 ? 제가 요번에 사용한 루틴입니다. 이상없이 잘 작동합니다. 그럼 이만.. procedure ...
-
xdelphi•2001.01.12 23:40파이파이 wrote: > 질문> 해당디렉토리와 폴더를 모두 지우는 소스입니다. > 그런데 이게 잘 안되...
-
-
xdelphi•2001.01.12 23:08누리 wrote: > 합계금액을 한글로 변환할수있는 방법 좀 알려주세요 > > 예) 123000 > > 일십이...
-
-
- 김범수
- •
- 2001.01.12 22:12
- 2 COMMENTS
- /
- 0 LIKES
-
방경주•2001.01.12 22:19DM4.Query1.Open; 을 DM4.Query1.ExecSql; 로 바꾸어 보세여....DML문은 이것으루 한답니다... 김범...
-
xdelphi•2001.01.12 22:18김범수 wrote: > 개인기초 DB 에서 필요한 필드를 받아서 월간근태등록 DB에 Insert 하는 구문입니다. > ...
-
- 파이파이
- 2001.01.12 22:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- 2001.01.12 21:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 지영일
- •
- 2001.01.12 21:56
- 1 COMMENTS
- /
- 0 LIKES
-
parkisu•2001.01.15 07:06지영일 wrote: > TTabbedNoteBook 속성중 > Activepage와 Pageindex의 차이의 대해서 설명해 주셨으면 합...
-
- 미스터
- 2001.01.12 20:57
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 진상필
- •
- 2001.01.12 20:48
- 5 COMMENTS
- /
- 0 LIKES
-
xdelphi•2001.01.12 21:40
-
홍길동•2001.01.13 01:48
-
xdelphi•2001.01.13 03:48
-
홍길동•2001.01.13 05:20
-
진상필•2001.01.15 19:56
-
- 기세희
- 2001.01.12 20:46
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 김태영
- •
- 2001.01.12 20:18
- 2 COMMENTS
- /
- 0 LIKES
-
xdelphi•2001.01.12 20:59김태영 wrote: > 고수님 도와주세요. 알고리즘이 약해서라무래... > > i : WideString; > ...
-
최진석•2001.01.12 20:53음... var k,l : integer; str,madestr : string; i : WideString; j : array of array of WideSt...
-
- 과객
- 2001.01.12 20:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.01.12 19:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 추운사람
- 2001.01.12 19:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤똘
- 2001.01.12 18:45
- 0 COMMENTS
- /
- 0 LIKES
제가 요번에 사용한 루틴입니다.
이상없이 잘 작동합니다.
그럼 이만..
procedure TfrmMain.button1Click(Sender: TObject);
begin
if not DirectoryExists('c:test') then begin
showmessage('폴더가 없어유~~');
end;
DelTree('c:test');
end;
Function TfrmMain.DelTree(DirName : string): Boolean;
var
SHFileOpStruct : TSHFileOpStruct;
DirBuf : array [0..255] of char;
begin
try
Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0);
FillChar(DirBuf, Sizeof(DirBuf), 0 );
StrPCopy(DirBuf, DirName);
with SHFileOpStruct do begin
Wnd := 0;
pFrom := @DirBuf;
wFunc := FO_DELETE;
fFlags := FOF_ALLOWUNDO;
fFlags := fFlags or FOF_NOCONFIRMATION;
fFlags := fFlags or FOF_SILENT;
end;
Result := (SHFileOperation(SHFileOpStruct) = 0);
except
Result := False;
end;
end;
==========================
파이파이 wrote:
> 질문> 해당디렉토리와 폴더를 모두 지우는 소스입니다.
> 그런데 이게 잘 안되네요...
> 폴더에 파일이 없어도 안되는데...
>
> 해당 디렉토리와 파일을 모두 지우는 좋은 방법 있으면
> 답변부탁드립니다.
>
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> DirInfo: TSearchRec; // 디렉토리의 정보를 나타낸다.
> r : Integer;
> begin
> r := FindFirst('C:DownloadTest*.*', FaAnyfile, DirInfo);
> while r = 0 do begin
> if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
> (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
> if DeleteFile(pChar('C:Downloadtest' + DirInfo.Name)) = false then
> ShowMessage('Unable to delete : C:Downloadtest' + DirInfo.Name);
> r := FindNext(DirInfo);
> end;
>
> SysUtils.FindClose(DirInfo);
> if RemoveDirectory('C:DownloadTest') = false then
> ShowMessage('Unable to delete direcotry : C:Downloadtest');
> end;