PDA

Ver la Versión Completa : Borrar un directorio completamente


dec
01-07-2006, 00:14:15
Procedimiento que borra una carpeta y su contenido:


procedure DelTree(sPath:String);
Var Fich:TSearchRec;
Begin
//Evitamos c:\
If (Length(sPath)=2) And (Right(sPath,1)=':') Then
Exit;
If (Right(sPath,1)<>'\') And (sPath<>'') Then
Try
If FindFirst(sPath+'\*.*',faAnyFile,Fich)=0 Then
Repeat
If (Fich.Attr And faDirectory)>0 Then
Begin
If SLeft(Fich.Name,1)<>'.' Then
DelTree(sPath+'\'+Fich.Name);
End
Else
If Not DelFile(sPath+'\'+Fich.Name) Then
Error('No puedo borrar el fichero '+Fich.Name,0);
Until FindNext(Fich)<>0;
Finally
SysUtils.FindClose(Fich);
RemoveDir(sPath);
End;
End;

mrnovice
02-09-2008, 17:31:06
Undeclared Identifier Right, en Delphi 7, acaso soy yo? jeje saludos (y)