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.022 c
1-22237
PVR
2001-12-16 17:20
2002.01.08
TListView ayuda a ordenar


1-22045
Socol
2001-12-15 17:14
2002.01.08
Escribir en archivo.


14-22374
nikols
2001-11-01 16:03
2002.01.08
¿Cómo descansan los programadores? Y cuando


1-22051
kay
2001-12-18 22:22
2002.01.08
Richedit


14-22380
Barman
2001-11-09 10:37
2002.01.08
Moscovitas, ¿alguien ha visto la guía de referencia de Win API a la venta?





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