Q&A
- Win95와 NT에서 Recursive call함수에 관하여
안녕하세요 ?
저는 인지정보에 근무하는 윤미화라고 합니다
저희 Package(supercel)가 Win95, Win98에서는 잘 도는데요, NT에서는 Error가
나는데 원인을 몰라서 이렇게 도움을 요청하게 되었습니다.
저희는 디렉토리를 지우기 위해 (서브 디렉토리및 파일 포함) RecursivelyDeleteDirectory 라는 함수를 Call하는데요.
NT에서는 화일은 지워지는데 디렉토리가 지워지지 않고 에러가 발생합니다.
Source file을 첨부하오니 도와주시면 참 많이 감사하겠습니다.
unit FileWork;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ShellAPI, FileCtrl;
const
EOC_CHANGEDIR = 1; { Error Operation Code for change directory failure }
EOC_SOURCECOPY = 2; { Error Operation Code for source copy failure }
EOC_DESTCOPY = 3; { Error Operation Code for destination copy failure }
EOC_DELETEFILE = 4; { Error Operation Code for file delete failure }
EOC_DELETEDIR = 5; { Error Operation Code for directory delete failure }
EOC_RENAMEFILE = 6; { Error Operation Code for renaming failure }
EOC_MAKEDIR = 7; { Error Operation Code for MkDir failure }
EOC_SETATTR = 8; { Error Operation Code for Set Attributes failure }
FAC_COPY = 1; { File Action Code for recursive copying }
FAC_MOVE = 2; { File Action Code for recursive moving }
FAC_DELETE = 3; { File Action Code for recursive deletion }
type
TFileWork = class( TComponent )
public
procedure HandleIOException( TheOpCode : Integer; ThePath : String;
TheMessage : String; TheCode : Integer );
procedure DeleteTheFile( ThePath : String );
procedure RemoveDirectory( ThePath : String );
procedure RecursivelyDeleteDirectory( ThePath : String );
procedure HandleRecursiveAction( StartingPath , NewPath : String;
ActionCode : Integer );
end;
implementation
{ deletes a single file }
procedure TFileWork.DeleteTheFile( ThePath : String );
var TheFile : File;
begin
{$I+}
try
AssignFile( TheFile , ThePath );
Erase( TheFile );
except
On E:EInOutError do
begin
HandleIOException( EOC_DELETEFILE , ExtractFileName( ThePath ), E.Message , E.ErrorCode );
end;
end;
end;
{ remove a directory }
procedure TFileWork.RemoveDirectory( ThePath : String );
begin
{$I+}
try
Rmdir( ThePath );
except
On E:EInOutError do
begin
HandleIOException( EOC_DELETEDIR , ExtractFileName( ThePath ) , E.Message , E.ErrorCode );
end;
end;
end;
{ This procedure handles recursively deleting an entire directory tree }
procedure TFileWork.RecursivelyDeleteDirectory( ThePath : String );
begin
HandleRecursiveAction( ThePath , '' , FAC_DELETE );
end;
procedure TFileWork.HandleRecursiveAction( StartingPath , NewPath : String;
ActionCode : Integer );
var
Finished : Boolean; { Loop flag }
TheSR : TSearchRec; { Searchrecord for FF/FN }
TheResult : Integer; { return variable }
TargetPath ,
TheWorkingDirectory ,
TheStoredWorkingDirectory ,
ModifiedDirectory : String; { path for FF/FN }
CdNewPath : String;
begin
{ Set up the initial variables }
Finished := false;
TheWorkingDirectory := StartingPath;
TheStoredWorkingDirectory := TheWorkingDirectory;
TheWorkingDirectory := TheWorkingDirectory + '*.*';
TargetPath := ExtractFilePath( TheWorkingDirectory );
TheResult := FindFirst( TheWorkingDirectory , faAnyFile , TheSR );
while not Finished do
begin
TheResult := FindNext( TheSR );
if TheResult <> 0 then finished := true else
begin
if (( FileGetAttr( TargetPath + TheSR.Name ) and faDirectory )
<> faDirectory ) then
begin
DeleteTheFile( TargetPath + TheSR.Name );
end;
end;
end;
Finished := false;
ModifiedDirectory := TheStoredWorkingdirectory + '*.*';
TheResult := FindFirst( ModifiedDirectory , faDirectory , TheSR );
while not Finished do
begin
{ Make call to FindNext, using only SearchRecord from FindFirst }
TheResult := FindNext( TheSR );
{ A -1 result means no more files so exit }
if TheResult <> 0 then
finished := true
else
begin
if TheSR.Name <> '..' then
begin
if (( FileGetAttr( TargetPath + TheSR.Name ) and faDirectory )
= faDirectory ) then
begin
ModifiedDirectory := TheStoredWorkingDirectory + '' +
TheSR.Name;
CdNewPath := NewPath;
NewPath := NewPath + TheSR.Name;
{ Do the recursive call }
HandleRecursiveAction( ModifiedDirectory , NewPath , ActionCode );
RemoveDirectory( TargetPath + TheSR.Name );
NewPath := CdNewPath;
end;
end;
end;
end;
end;
{ This procedure handles displaying a user-friendly Dialog box with a }
{ Message for Delphi IO exception errors. }
procedure TFileWork.HandleIOException( TheOpCode : Integer;
ThePath : String; TheMessage : String; TheCode : Integer );
var ErrorMessageString : String; { Holds internal data }
OperationString : String; { Holds internal data }
begin
{ clear to check for unrecognized code }
ErrorMessageString := '';
{ Check against imported code }
case TheCode of
2 : ErrorMessageString := 'File not found';
3 : ErrorMessageString := 'Path not found';
4 : ErrorMessageString := 'Too many open files';
5 : ErrorMessageString := 'File access denied';
6 : ErrorMessageString := 'Invalid file handle';
12 : ErrorMessageString := 'Invalid file access code';
15 : ErrorMessageString := 'Invalid drive number';
16 : ErrorMessageString := 'Cannot remove current directory';
17 : ErrorMessageString := 'Cannot rename across drives';
100 : ErrorMessageString := 'Disk read error';
101 : ErrorMessageString := 'Disk write error';
102 : ErrorMessageString := 'File not assigned';
103 : ErrorMessageString := 'File not open';
104 : ErrorMessageString := 'File not open for input';
105 : ErrorMessageString := 'File not open for output';
end;
case TheOpCode of
EOC_CHANGEDIR : OperationString := 'Unable to Change Directory due to ';
EOC_SOURCECOPY : OperationString := 'Unable to Copy due to Source File ';
EOC_DESTCOPY : OperationString := 'Unable to Copy due to Destination File ';
EOC_DELETEFILE : OperationString := 'Unable to Delete File due to ';
EOC_DELETEDIR : OperationString := 'Unable to Delete Directory due to ';
EOC_RENAMEFILE : OperationString := 'Unable to Rename File due to ';
EOC_MAKEDIR : OperationString := 'Unable to Create New Directory due to ';
EOC_SETATTR : OperationString := 'Unable to Set File Attributes due to ';
end;
{ If not recognized use message; not a DOS error; reset cursor for neatness }
if ErrorMessageString = '' then
begin
Screen.Cursor := crDefault;
MessageDlg( OperationString + ExtractFileName( ThePath ) + ' ' +
TheMessage , mtError , [mbOK],0);
end
else
begin
{ Recognized DOS exception, reset cursor for neatness }
Screen.Cursor := crDefault;
MessageDlg( OperationString + ExtractFileName( ThePath ) + ' ' +
ErrorMessageString , mtError , [mbOK], 0 );
end;
end;
end.
저는 인지정보에 근무하는 윤미화라고 합니다
저희 Package(supercel)가 Win95, Win98에서는 잘 도는데요, NT에서는 Error가
나는데 원인을 몰라서 이렇게 도움을 요청하게 되었습니다.
저희는 디렉토리를 지우기 위해 (서브 디렉토리및 파일 포함) RecursivelyDeleteDirectory 라는 함수를 Call하는데요.
NT에서는 화일은 지워지는데 디렉토리가 지워지지 않고 에러가 발생합니다.
Source file을 첨부하오니 도와주시면 참 많이 감사하겠습니다.
unit FileWork;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Controls,
Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ShellAPI, FileCtrl;
const
EOC_CHANGEDIR = 1; { Error Operation Code for change directory failure }
EOC_SOURCECOPY = 2; { Error Operation Code for source copy failure }
EOC_DESTCOPY = 3; { Error Operation Code for destination copy failure }
EOC_DELETEFILE = 4; { Error Operation Code for file delete failure }
EOC_DELETEDIR = 5; { Error Operation Code for directory delete failure }
EOC_RENAMEFILE = 6; { Error Operation Code for renaming failure }
EOC_MAKEDIR = 7; { Error Operation Code for MkDir failure }
EOC_SETATTR = 8; { Error Operation Code for Set Attributes failure }
FAC_COPY = 1; { File Action Code for recursive copying }
FAC_MOVE = 2; { File Action Code for recursive moving }
FAC_DELETE = 3; { File Action Code for recursive deletion }
type
TFileWork = class( TComponent )
public
procedure HandleIOException( TheOpCode : Integer; ThePath : String;
TheMessage : String; TheCode : Integer );
procedure DeleteTheFile( ThePath : String );
procedure RemoveDirectory( ThePath : String );
procedure RecursivelyDeleteDirectory( ThePath : String );
procedure HandleRecursiveAction( StartingPath , NewPath : String;
ActionCode : Integer );
end;
implementation
{ deletes a single file }
procedure TFileWork.DeleteTheFile( ThePath : String );
var TheFile : File;
begin
{$I+}
try
AssignFile( TheFile , ThePath );
Erase( TheFile );
except
On E:EInOutError do
begin
HandleIOException( EOC_DELETEFILE , ExtractFileName( ThePath ), E.Message , E.ErrorCode );
end;
end;
end;
{ remove a directory }
procedure TFileWork.RemoveDirectory( ThePath : String );
begin
{$I+}
try
Rmdir( ThePath );
except
On E:EInOutError do
begin
HandleIOException( EOC_DELETEDIR , ExtractFileName( ThePath ) , E.Message , E.ErrorCode );
end;
end;
end;
{ This procedure handles recursively deleting an entire directory tree }
procedure TFileWork.RecursivelyDeleteDirectory( ThePath : String );
begin
HandleRecursiveAction( ThePath , '' , FAC_DELETE );
end;
procedure TFileWork.HandleRecursiveAction( StartingPath , NewPath : String;
ActionCode : Integer );
var
Finished : Boolean; { Loop flag }
TheSR : TSearchRec; { Searchrecord for FF/FN }
TheResult : Integer; { return variable }
TargetPath ,
TheWorkingDirectory ,
TheStoredWorkingDirectory ,
ModifiedDirectory : String; { path for FF/FN }
CdNewPath : String;
begin
{ Set up the initial variables }
Finished := false;
TheWorkingDirectory := StartingPath;
TheStoredWorkingDirectory := TheWorkingDirectory;
TheWorkingDirectory := TheWorkingDirectory + '*.*';
TargetPath := ExtractFilePath( TheWorkingDirectory );
TheResult := FindFirst( TheWorkingDirectory , faAnyFile , TheSR );
while not Finished do
begin
TheResult := FindNext( TheSR );
if TheResult <> 0 then finished := true else
begin
if (( FileGetAttr( TargetPath + TheSR.Name ) and faDirectory )
<> faDirectory ) then
begin
DeleteTheFile( TargetPath + TheSR.Name );
end;
end;
end;
Finished := false;
ModifiedDirectory := TheStoredWorkingdirectory + '*.*';
TheResult := FindFirst( ModifiedDirectory , faDirectory , TheSR );
while not Finished do
begin
{ Make call to FindNext, using only SearchRecord from FindFirst }
TheResult := FindNext( TheSR );
{ A -1 result means no more files so exit }
if TheResult <> 0 then
finished := true
else
begin
if TheSR.Name <> '..' then
begin
if (( FileGetAttr( TargetPath + TheSR.Name ) and faDirectory )
= faDirectory ) then
begin
ModifiedDirectory := TheStoredWorkingDirectory + '' +
TheSR.Name;
CdNewPath := NewPath;
NewPath := NewPath + TheSR.Name;
{ Do the recursive call }
HandleRecursiveAction( ModifiedDirectory , NewPath , ActionCode );
RemoveDirectory( TargetPath + TheSR.Name );
NewPath := CdNewPath;
end;
end;
end;
end;
end;
{ This procedure handles displaying a user-friendly Dialog box with a }
{ Message for Delphi IO exception errors. }
procedure TFileWork.HandleIOException( TheOpCode : Integer;
ThePath : String; TheMessage : String; TheCode : Integer );
var ErrorMessageString : String; { Holds internal data }
OperationString : String; { Holds internal data }
begin
{ clear to check for unrecognized code }
ErrorMessageString := '';
{ Check against imported code }
case TheCode of
2 : ErrorMessageString := 'File not found';
3 : ErrorMessageString := 'Path not found';
4 : ErrorMessageString := 'Too many open files';
5 : ErrorMessageString := 'File access denied';
6 : ErrorMessageString := 'Invalid file handle';
12 : ErrorMessageString := 'Invalid file access code';
15 : ErrorMessageString := 'Invalid drive number';
16 : ErrorMessageString := 'Cannot remove current directory';
17 : ErrorMessageString := 'Cannot rename across drives';
100 : ErrorMessageString := 'Disk read error';
101 : ErrorMessageString := 'Disk write error';
102 : ErrorMessageString := 'File not assigned';
103 : ErrorMessageString := 'File not open';
104 : ErrorMessageString := 'File not open for input';
105 : ErrorMessageString := 'File not open for output';
end;
case TheOpCode of
EOC_CHANGEDIR : OperationString := 'Unable to Change Directory due to ';
EOC_SOURCECOPY : OperationString := 'Unable to Copy due to Source File ';
EOC_DESTCOPY : OperationString := 'Unable to Copy due to Destination File ';
EOC_DELETEFILE : OperationString := 'Unable to Delete File due to ';
EOC_DELETEDIR : OperationString := 'Unable to Delete Directory due to ';
EOC_RENAMEFILE : OperationString := 'Unable to Rename File due to ';
EOC_MAKEDIR : OperationString := 'Unable to Create New Directory due to ';
EOC_SETATTR : OperationString := 'Unable to Set File Attributes due to ';
end;
{ If not recognized use message; not a DOS error; reset cursor for neatness }
if ErrorMessageString = '' then
begin
Screen.Cursor := crDefault;
MessageDlg( OperationString + ExtractFileName( ThePath ) + ' ' +
TheMessage , mtError , [mbOK],0);
end
else
begin
{ Recognized DOS exception, reset cursor for neatness }
Screen.Cursor := crDefault;
MessageDlg( OperationString + ExtractFileName( ThePath ) + ' ' +
ErrorMessageString , mtError , [mbOK], 0 );
end;
end;
end.
3
COMMENTS
-
-
구창민님께서 만드신 디렉토리를 몽땅 날려버리는 소스 입니다.
참고하세요.
글구 질문은 http://www.delphi.co.kr 을 참고해 주시면 감사하겠습니다.
procedure TForm1.Button2Click(Sender: TObject);
var Searchrec : TSearchrec;
dir : string;
begin
dir := directorylistbox1.getitempath(directorylistbox1.itemindex);
deletedirectory(dir);
rmdir(dir); //선택한 디렉토리까지 마저 지운다. 아주 깨끗이
end;
procedure tform1.deletedirectory(dir : string);
var Searchrec : TSearchrec;
i : integer;
st : string ; //경로조립할 문자열
begin
st := dir + '*.*';
findfirst(st, faanyfile, Searchrec);
i := 0;
while i = 0 do //정상적으로 찾아내었으면..
begin
if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
begin
i := findnext(Searchrec); //다음 디렉토리, 화일을 찾음
continue;
end;
///////여기서 부터 삭제 시작///////
if directoryexists(dir + '' + Searchrec.Name) then //찾은 것이 디렉토리이면
begin
st := dir + '' + Searchrec.Name;
Deletedirectory(st);
i := findnext(Searchrec);
rmdir(st);
continue;
end;
st := dir + '' + Searchrec.Name;
Deletefile(st);
i := findnext(Searchrec);
end;
end;
윤미화 wrote:
> 안녕하세요 ?
> 저는 인지정보에 근무하는 윤미화라고 합니다
> 저희 Package(supercel)가 Win95, Win98에서는 잘 도는데요, NT에서는 Error가
> 나는데 원인을 몰라서 이렇게 도움을 요청하게 되었습니다.
> 저희는 디렉토리를 지우기 위해 (서브 디렉토리및 파일 포함) RecursivelyDeleteDirectory 라는 함수를 Call하는데요.
> NT에서는 화일은 지워지는데 디렉토리가 지워지지 않고 에러가 발생합니다.
> Source file을 첨부하오니 도와주시면 참 많이 감사하겠습니다.
> unit FileWork;
>
> interface
>
> uses
> SysUtils, WinTypes, WinProcs, Messages, Classes, Controls,
> Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ShellAPI, FileCtrl;
>
> const
> EOC_CHANGEDIR = 1; { Error Operation Code for change directory failure }
> EOC_SOURCECOPY = 2; { Error Operation Code for source copy failure }
> EOC_DESTCOPY = 3; { Error Operation Code for destination copy failure }
> EOC_DELETEFILE = 4; { Error Operation Code for file delete failure }
> EOC_DELETEDIR = 5; { Error Operation Code for directory delete failure }
> EOC_RENAMEFILE = 6; { Error Operation Code for renaming failure }
> EOC_MAKEDIR = 7; { Error Operation Code for MkDir failure }
> EOC_SETATTR = 8; { Error Operation Code for Set Attributes failure }
>
> FAC_COPY = 1; { File Action Code for recursive copying }
> FAC_MOVE = 2; { File Action Code for recursive moving }
> FAC_DELETE = 3; { File Action Code for recursive deletion }
> type
> TFileWork = class( TComponent )
> public
>
> procedure HandleIOException( TheOpCode : Integer; ThePath : String;
> TheMessage : String; TheCode : Integer );
>
> procedure DeleteTheFile( ThePath : String );
> procedure RemoveDirectory( ThePath : String );
> procedure RecursivelyDeleteDirectory( ThePath : String );
> procedure HandleRecursiveAction( StartingPath , NewPath : String;
> ActionCode : Integer );
> end;
>
> implementation
>
>
> { deletes a single file }
> procedure TFileWork.DeleteTheFile( ThePath : String );
> var TheFile : File;
> begin
> {$I+}
> try
> AssignFile( TheFile , ThePath );
> Erase( TheFile );
> except
> On E:EInOutError do
> begin
> HandleIOException( EOC_DELETEFILE , ExtractFileName( ThePath ), E.Message , E.ErrorCode );
> end;
> end;
> end;
>
>
> { remove a directory }
> procedure TFileWork.RemoveDirectory( ThePath : String );
> begin
> {$I+}
> try
> Rmdir( ThePath );
> except
> On E:EInOutError do
> begin
> HandleIOException( EOC_DELETEDIR , ExtractFileName( ThePath ) , E.Message , E.ErrorCode );
> end;
> end;
> end;
>
>
> { This procedure handles recursively deleting an entire directory tree }
> procedure TFileWork.RecursivelyDeleteDirectory( ThePath : String );
> begin
> HandleRecursiveAction( ThePath , '' , FAC_DELETE );
> end;
>
>
>
> procedure TFileWork.HandleRecursiveAction( StartingPath , NewPath : String;
> ActionCode : Integer );
> var
> Finished : Boolean; { Loop flag }
> TheSR : TSearchRec; { Searchrecord for FF/FN }
> TheResult : Integer; { return variable }
> TargetPath ,
> TheWorkingDirectory ,
> TheStoredWorkingDirectory ,
> ModifiedDirectory : String; { path for FF/FN }
> CdNewPath : String;
> begin
> { Set up the initial variables }
> Finished := false;
> TheWorkingDirectory := StartingPath;
> TheStoredWorkingDirectory := TheWorkingDirectory;
> TheWorkingDirectory := TheWorkingDirectory + '*.*';
> TargetPath := ExtractFilePath( TheWorkingDirectory );
> TheResult := FindFirst( TheWorkingDirectory , faAnyFile , TheSR );
> while not Finished do
> begin
> TheResult := FindNext( TheSR );
> if TheResult <> 0 then finished := true else
> begin
> if (( FileGetAttr( TargetPath + TheSR.Name ) and faDirectory )
> <> faDirectory ) then
> begin
> DeleteTheFile( TargetPath + TheSR.Name );
> end;
> end;
> end;
>
> Finished := false;
> ModifiedDirectory := TheStoredWorkingdirectory + '*.*';
> TheResult := FindFirst( ModifiedDirectory , faDirectory , TheSR );
> while not Finished do
> begin
> { Make call to FindNext, using only SearchRecord from FindFirst }
> TheResult := FindNext( TheSR );
> { A -1 result means no more files so exit }
> if TheResult <> 0 then
> finished := true
> else
> begin
> if TheSR.Name <> '..' then
> begin
> if (( FileGetAttr( TargetPath + TheSR.Name ) and faDirectory )
> = faDirectory ) then
> begin
> ModifiedDirectory := TheStoredWorkingDirectory + '' +
> TheSR.Name;
>
> CdNewPath := NewPath;
> NewPath := NewPath + TheSR.Name;
>
> { Do the recursive call }
> HandleRecursiveAction( ModifiedDirectory , NewPath , ActionCode );
> RemoveDirectory( TargetPath + TheSR.Name );
> NewPath := CdNewPath;
> end;
> end;
> end;
> end;
> end;
>
>
>
> { This procedure handles displaying a user-friendly Dialog box with a }
> { Message for Delphi IO exception errors. }
> procedure TFileWork.HandleIOException( TheOpCode : Integer;
> ThePath : String; TheMessage : String; TheCode : Integer );
> var ErrorMessageString : String; { Holds internal data }
> OperationString : String; { Holds internal data }
> begin
> { clear to check for unrecognized code }
> ErrorMessageString := '';
> { Check against imported code }
> case TheCode of
> 2 : ErrorMessageString := 'File not found';
> 3 : ErrorMessageString := 'Path not found';
> 4 : ErrorMessageString := 'Too many open files';
> 5 : ErrorMessageString := 'File access denied';
> 6 : ErrorMessageString := 'Invalid file handle';
> 12 : ErrorMessageString := 'Invalid file access code';
> 15 : ErrorMessageString := 'Invalid drive number';
> 16 : ErrorMessageString := 'Cannot remove current directory';
> 17 : ErrorMessageString := 'Cannot rename across drives';
> 100 : ErrorMessageString := 'Disk read error';
> 101 : ErrorMessageString := 'Disk write error';
> 102 : ErrorMessageString := 'File not assigned';
> 103 : ErrorMessageString := 'File not open';
> 104 : ErrorMessageString := 'File not open for input';
> 105 : ErrorMessageString := 'File not open for output';
> end;
> case TheOpCode of
> EOC_CHANGEDIR : OperationString := 'Unable to Change Directory due to ';
> EOC_SOURCECOPY : OperationString := 'Unable to Copy due to Source File ';
> EOC_DESTCOPY : OperationString := 'Unable to Copy due to Destination File ';
> EOC_DELETEFILE : OperationString := 'Unable to Delete File due to ';
> EOC_DELETEDIR : OperationString := 'Unable to Delete Directory due to ';
> EOC_RENAMEFILE : OperationString := 'Unable to Rename File due to ';
> EOC_MAKEDIR : OperationString := 'Unable to Create New Directory due to ';
> EOC_SETATTR : OperationString := 'Unable to Set File Attributes due to ';
> end;
> { If not recognized use message; not a DOS error; reset cursor for neatness }
> if ErrorMessageString = '' then
> begin
> Screen.Cursor := crDefault;
> MessageDlg( OperationString + ExtractFileName( ThePath ) + ' ' +
> TheMessage , mtError , [mbOK],0);
> end
> else
> begin
> { Recognized DOS exception, reset cursor for neatness }
> Screen.Cursor := crDefault;
> MessageDlg( OperationString + ExtractFileName( ThePath ) + ' ' +
> ErrorMessageString , mtError , [mbOK], 0 );
> end;
> end;
>
> end.
-
>> 답변
글쎄요. NT는 안써봐서......흠~~~
바보같은 답변일지는 모르지만 혹~ 폴더의 속성이 읽기전용으로 되어 있는건 아닌지요??? - 너무 바보같은 답변인가요. -.-;;
아니면 아래의 문제일수도...
RmDir removes the subdirectory with the path specified by S. If the path does not exist, is non-empty, or is the currently logged directory, an I/O error occurs.
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- •
- 1999.05.21 18:01
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.21 19:50제생각에는 CPU보다는 그래픽카드가 문제가 될수있다고 생각이 드네요. 몇몇보고를 보면 그래픽카드중에 ...
-
- 이호선
- 1999.05.21 17:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤상필
- •
- 1999.05.21 17:34
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.21 23:00어떤 SMTP컴포넌트를 사용하시는지요? 직접만드신것인지... 델파이에 있는 TNMSMTP를 사용하셨다면 ...
-
- 김태균
- •
- 1999.05.21 13:49
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•1999.05.21 18:58김태균 wrote: > 이렇게 하려고 합니다. > > Query1이 있는데 이것과 똑같은 Query를 하나 만들려고 ...
-
- 김용철
- •
- 1999.05.21 11:14
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.21 22:49델파이는 윈NT용으로 따로 나오는것은 없습니다. 아마도 아직 윈2000이 윈98이나 이전버전의 지원 호환성...
-
- Heaven
- •
- 1999.05.21 09:53
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.05.21 20:50Heaven wrote: > 안녕하세요... > 여기서 도움을 많이 받는 heaven입니다. > > 제가 스트링그리드 사...
-
- 철이
- 1999.05.21 09:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영애
- •
- 1999.05.21 08:38
- 1 COMMENTS
- /
- 0 LIKES
-
powerman•1999.05.21 09:54김영애 wrote: > 저는 '매출내역서'를 출력하려구요.. > 이건 사원명을 중심으로 매출카드내역을 뽑는거...
-
- 영이...
- 1999.05.21 07:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 박진수
- 1999.05.21 04:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이선영
- 1999.05.21 03:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보운전
- •
- 1999.05.21 03:44
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.21 19:54이미 두분이 답을 하셨군요.. 질문의 요지를 전 좀 다른 각도에서 생각을 해보았습니다. 아래와 같이 코...
-
이정욱•1999.05.21 06:56파워러브 델파이 창간호에서 가져왔습니다. 1. 현재 라인번호 알아내기 메모에서 현재 Caret이 위치...
-
안치봉•1999.05.21 03:54초보운전 wrote: > > 가능할까요?? > 폼에 나란히 Momo 콘트롤을 2개 설치하고 > 한쪽의 메모콘트롤에...
-
- 최석기
- •
- 1999.05.21 03:20
- 2 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.21 06:31팩스드라이버는 모뎀에 없죠... 그냥 모뎀 드라이버만 제데로 설치되어 있어도 됩니다. 팩스프린터드라이...
-
최석기•1999.05.21 18:20이정욱 wrote: > 팩스드라이버는 모뎀에 없죠... 그냥 모뎀 드라이버만 제데로 설치되어 있어도 됩니다. ...
-
- 박태식
- •
- 1999.05.21 02:44
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.06.04 03:41박태식 께서 말씀하시기를... > query로 조회하는 부분입니다. > 두개의 db에서 각각의 한field에서 > ...
-
- 윤미화
- •
- •
- 1999.05.21 02:40
- 3 COMMENTS
- /
- 1 LIKES
안녕하세요 ? 저는 인지정보에 근무하는 윤미화라고 합니다 저희 Package(supercel)가 Win95, Win98에서는 잘 도는데요, NT에서는 Error가 나는데 원인을 몰라서 이렇게 도움을 요청하게 되었습니다. 저희는 디렉토리를 지우기 위해 (서브...-
글쎄요.•1999.05.21 21:25FindFirst,FindNext,Findclose 함수에 대해 델파이가 버그를 가지고 있습니다. 이 함수가 두군데 unit에 ...
-
이정욱•1999.05.21 02:42구창민님께서 만드신 디렉토리를 몽땅 날려버리는 소스 입니다. 참고하세요. 글구 질문은 http://www.del...
-
안치봉•1999.05.21 02:41>> 답변 글쎄요. NT는 안써봐서......흠~~~ 바보같은 답변일지는 모르지만 혹~ 폴더의 속성이 읽기전...
-
- 용그니
- •
- 1999.05.21 00:06
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.21 07:00이곳 한델(http://www.delphi.co.kr) 자료실에 시리얼포트제어 컴포넌트가 있습니다. 상용으로는 ASyncPro...
-
- 김영대
- •
- 1999.05.20 21:23
- 1 COMMENTS
- /
- 0 LIKES
-
서영택•1999.05.21 00:53김영대 wrote: > 서영택 wrote: > > *.txt파일의 구조는 Header Record, Data Recodr, Trailer Record >...
-
- 황순영
- •
- 1999.05.20 20:27
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.05.21 00:56황순영 wrote: > 안녕하세요 > 좀 궁금한 것이 있는데.... > > 거의 구조가 비슷한 두개의 Project 파...
-
- 구성호
- •
- 1999.05.20 19:32
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.05.21 02:46구성호 wrote: > 여기에서 에러가 자꾸 생깅깁니다. 제발 도와 주세요. > Printer.Canvas.Font.Size := ...
-
- 초보운전
- •
- 1999.05.20 18:37
- 1 COMMENTS
- /
- 0 LIKES
-
초보운전•1999.05.20 19:00죄송... 한글은 잘되더군요. 특수문자를 처리하는 방법을 부탁드립니다 리턴키(chr(13)+chr(10))와 같은...
이 함수가 두군데 unit에 포함되어 있어서 문제가 발생한다고 합니다.(NT에서만)이 함수앞에 SysUtils.을 붙혀 주세요. 그리고 여기를 참고하셔요.
http://www.efg2.com/Lab/Library/Delphi/IO/Directories.htm