![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Simple para los que saben (delfile)
Buenas, he leido los 393 trucos y no encuentro uno adecuado a loq ue busco.
Bien espero que me ayuden y si no pues pongan que no :P como puedo hacer para borrar varios archivos de un directorio y crear "falsas copias" y ponerlo como solo lectura? un ejemplo aki Código:
@echo off //elimino el atributo de solo lectura de los archivos a reemplazar attrib -r C:\ARCHIV~1\UG\key1.ctt attrib -r C:\ARCHIV~1\UG\acc2.ctt attrib -r C:\ARCHIV~1\UG\registry3.ctt //los borro del C:\ARCHIV~1\UG\key1.ctt del C:\ARCHIV~1\UG\acc2.ctt del C:\ARCHIV~1\UG\registry3.ctt // aqui incuyo los archivos ya modificados junto con el BAT para su copia copy C:\ARCHIV~1\UG\key1.ctt copy C:\ARCHIV~1\UG\acc2.ctt copy C:\ARCHIV~1\UG\registry3.ctt //aplico los atributos de solo lectura a los nuevos archivos attrib +r C:\ARCHIV~1\UG\key1.ctt attrib +r C:\ARCHIV~1\UG\acc2.ctt attrib +r C:\ARCHIV~1\UG\registry3.ctt end - como es esto en delphi - como podria incluir los archivos *.ctt dentro del exe - como poner varias rutas a buscar dado que puede ser "C:\ARCHIV~1\UG2\" Autorespuesta (necesita mejoras) Bueno mas o menos asi, le he añadido mas code dado que el que tenia era un ejemplo. lee los Edit que he puesto en la GUI, pero solo le el primero, los otros dos "paths" donde debian estar los archivos, no lo los lee, alguna sugerencia? Código:
procedure TForm1.Button1Click(Sender: TObject); var APath: string; APath2: string; APath3: string; MySearch: TSearchRec; MySearch2: TSearchRec; MySearch3: TSearchRec; begin APath:=Edit1.Text; APath2:=Edit2.Text; APath3:=Edit3.Text; FindFirst(APath+'\*.ctt', faAnyFile, MySearch); FindFirst(APath2+'\*.ctt', faAnyFile, MySearch2); FindFirst(APath3+'\*.ctt', faAnyFile, MySearch3); Memo1.Lines.Add(MySearch.Name); Memo1.Lines.Add(MySearch2.Name); Memo1.Lines.Add(MySearch3.Name); DeleteFile(APath+'\*.ctt'+MySearch.Name); DeleteFile(APath2+'\*.ctt'+MySearch2.Name); DeleteFile(APath3+'\*.ctt'+MySearch3.Name); while FindNext(MySearch)=0 do begin Memo1.Lines.Add(MySearch.Name); Memo1.Lines.Add(MySearch2.Name); Memo1.Lines.Add(MySearch3.Name); DeleteFile(APath+'\*.ctt'+MySearch.Name); DeleteFile(APath2+'\*.ctt'+MySearch2.Name); DeleteFile(APath3+'\*.ctt'+MySearch3.Name); end; FindClose(MySearch); FindClose(MySearch2); FindClose(MySearch3); end; |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Saben programar los Iron Maiden?? | Bicho | La Taberna | 2 | 21-09-2006 15:08:42 |
de flash saben algo? | elcigarra | HTML, Javascript y otros | 4 | 01-06-2006 15:02:38 |
Consulta para los que saben del twebbrowser | Mage | Internet | 3 | 24-04-2006 18:44:34 |
Saben donde puedo conseguir el compoenten KBMW para poderlos instalar | Luis Alberto | Varios | 4 | 23-12-2005 19:51:35 |
Para aprender de los que saben... | delphi.com.ar | Humor | 1 | 16-07-2004 02:47:25 |
![]() |
|