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.81 MB
Tiempo: 0.025 c
14-22382
panov
2001-11-08 18:54
2002.01.08
continuación http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1005233643&n=3


3-21951
Olban
2001-12-05 11:07
2002.01.08
Utilice QuantumGrid


14-22415
Wetnose
2001-11-12 06:42
2002.01.08
Temas para WinXP


1-22226
Hueso
2001-12-15 13:06
2002.01.08
¿Por qué no funciona este simple código ...


3-21935
pelo
2001-12-03 15:12
2002.01.08
Almacenamiento de datos





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