Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Borrando contenidos del directorio Encontrar ramas similares


Марина   (2001-12-20 15:42) [0]

¿Puede decirme cómo eliminar los contenidos del directorio y dejar el directorio en sí? Necesitas algo como deletefile ("c: \ kio \ massiv \ *. *") Agradecido de antemano y pido disculpas por la pregunta "tetera".



gek   (2001-12-20 15:47) [1]

si Findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 entonces
while (FindNext (SearchRec) = 0) hacer
si no es deletefile (pchar ("\ TEMP \" + SearchRec.name)) entonces
Aplicación.Terminar;
FindClose (SearchRec);



Dimka Maslov   (2001-12-20 16:05) [2]

utiliza Windows, SysUtils, Classes, Masks; procedimiento DeleteFiles (Path: string); var Máscara: cuerda; SearchRec: TSearchRec; FindResult: Integer; Lista: TStringList; i: Integer; comenzar Máscara: = ExtractFileName (ruta); si Mask = "" entonces Mask: = "*. *"; Ruta: = ExtractFilePath (Ruta); si Path = "" entonces Path: = IncludeTrailingBackslash (GetCurrentDir); Lista: = TStringList.Create; prueba FindResult: = FindFirst (Path + "*. *", FaAnyFile, SearchRec); prueba mientras FindResult = 0 hace con SearchRec comienza if ((Attr y faDirectory) = 0) y MatchesMask (Nombre, Máscara) entonces List.Add (Nombre); FindResult: = FindNext (SearchRec); fin para i: = 0 a List.Count - 1 do DeleteFile (Ruta + Lista [i]); finalmente FindClose (SearchRec); fin finalmente Lista.Free; fin fin



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.55 MB
Tiempo: 0.024 c
3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi


6-22267
wHammer
2001-09-28 15:00
2002.01.08
Sería muy conveniente ...


4-22467
sombra
2001-11-01 15:46
2002.01.08
TOPMOSTS


1-22115
Derzky
2001-12-19 18:14
2002.01.08
Cómo comparar fechas y la diferencia entre ellas para obtener un entero


4-22507
Slaviq
2001-11-06 17:55
2002.01.08
Iconos del sistema





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español