Accueil > Forum > > > > Manip de fichiers
 Manip de fichiers
jeudi 2 décembre 2004 à 12:16:12 |
Manip de fichiers
Zan
|
bonjour, existe-t-il une bibliotheque de manipulation de fichier et de repertoire simple ! pour par exemple supprimer un repertoire du disque sans devoir supprimer son contenu avant ? Zan |
|
jeudi 2 décembre 2004 à 12:30:50 |
Re : Manip de fichiers
JulioDelphi
|
Réponse acceptée !
pour effacer un dossier sans devoir supprimer son contenu : http://diabloporc.free.fr/astuces.php#effacerdossier sinon pour effacer un fichier deleteFile(), renommer renameFile(), verifier l'existance FileExists(), je crois ke c sysutils.pas qui contient ça, a confirmer ! ps : fait F1 sur une de ces fonctions, tu auras de l'aide sur les autres :) N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  -------------------------------------------  [ Lien ] : mon site refait ! Delphi power !
|
|
jeudi 2 décembre 2004 à 12:31:56 |
Re : Manip de fichiers
ni69
|
Réponse acceptée !
Renommer un fichier : | RenameFile('c:\MonFichier1.txt','c:\MonFichier2.txt'); |
Créer un répertoire dans un autre existant : | CreateDirectory('c:\MonRepertoire',nil); |
Créer une arborescence de répertoires : | ForceDirectories('C:\MonRepertoire\SousDossier1\Sousdossier2'); |
Déplacer un repertoire et tous ses sous-répertoires : | MoveFileEx('c:\MonRepertoire\','a:\MonRepertoire',MoveFile_Copy_Allowed); |
Déplacer un fichier : | MoveFile('c:\MonRepertoire.txt','a:\MonRepertoire.txt'); |
Supprimer un fichier : | DeleteFile('c:\MonFichier.txt'); |
Tester l'existance d'un fichier : if FileExists('c:\MonFichier.txt') then
ShowMessage('Ce fichier existe')
else
ShowMessage('Ce fichier n''existe pas'); |
Tester l'existance d'un répertoire: if DirectoryExists('c:\MonFichier.txt') then
ShowMessage('Ce dossier existe')
else
ShowMessage('Ce dossier n''existe pas'); |
Copier un fichier : | CopyFile('c:\MonFichier1.txt','c:\MonFichier2.txt',true); |
Cacher dossier : | setfileattributes('C:\MonRepertoire',FILE_ATTRIBUTE_HIDDEN); |
Réafficher dossier : | setfileattributes('C:\MonRepertoire',FILE_ATTRIBUTE_NORMAL); |
Supprimer un répertoire plein (supprime tous les fichiers les uns après les autres et ensuite supprime le répertoire vide) : var
Dir: TSearchRec;
a : Integer;
begin
a := FindFirst('C:\MonRepertoire\*.*', FaAnyfile, Dir);
while a = 0 do
begin
if ((Dir.Attr and FaDirectory <> FaDirectory) and (Dir.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar('C:\repertoire' + Dir.Name))= false then
ShowMessage('Destruction impossible');
a := FindNext(Dir);
end;
SysUtils.FindClose(Dir);
if RemoveDirectory('C:\repertoire') = false then ShowMessage('Destruction impossible');
end; |
Voilà...  @+ Bonne Prog' Nico N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
|
|
jeudi 2 décembre 2004 à 12:34:18 |
Re : Manip de fichiers
ni69
|
Dsl j'ai fait une erreur... Pour tester l'existance d'un répertoire: if DirectoryExists('c:\MonRepertoire') then
ShowMessage('Ce dossier existe')
else
ShowMessage('Ce dossier n''existe pas'); |
Voilà c'est corrigé ! @+ Bonne Prog' Nico N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! |
|
jeudi 2 décembre 2004 à 12:39:29 |
Re : Manip de fichiers
JulioDelphi
|
ni69 : regarde mon code pour supprimer un dossier non vide :p N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ------------------------------------------- [ Lien ] : mon site refait ! Delphi power ! |
|
jeudi 2 décembre 2004 à 12:43:05 |
Re : Manip de fichiers
ni69
|
Effectivement, c'est beaucoup plus pratique ! Merci ! @+ Bonne Prog' Nico N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! |
|
jeudi 2 décembre 2004 à 13:27:06 |
Re : Manip de fichiers
DRJEROME
|
si tu veux effacer un dossier plein sans faire une boucle, on peut le faire en une ligne de code : admettons que ton dossier s'appelle "TRUC" situé dans C:\TRUC if DirectoryExists('C:\TRUC') then ShellExecute(Handle,'open','cmd.exe','/C RMDIR/Q/S C:\TRUC',0,SW_HIDE);
|
n'oublie pas de mettre Shellapi dans tes uses ça effacera tous les sous-dossiers sans faire une boucle FindFirst /FindNext Ce code marche bien du moment qu'aucun fichier de celui -ci n'est en cours d'utilisation (idem pour le code de nino69) DrJerome |
|
jeudi 2 décembre 2004 à 13:58:37 |
Re : Manip de fichiers
Zan
|
quel rapidité de reponse !
merci merci ^^
Zan
|
|
jeudi 2 décembre 2004 à 15:45:59 |
Re : Manip de fichiers
JulioDelphi
|
DRJEROME et si l'utilisateur est sous win 98, il n'auras pas cmd.exe mais command.com, et si il n'a pas les droits pour executer une commande DOS, il l'a dans l'OS (pas operating system hein, un os lol) donc, sans faire de boucle, look at my code :p N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ------------------------------------------- [ Lien ] : mon site refait ! Delphi power ! |
|
jeudi 2 décembre 2004 à 16:16:55 |
Re : Manip de fichiers
DRJEROME
|
JulioDelphi, tu as oublié de citer l'auteur : Thomas Davenport (entre-autre, qui lui même l'a pompé dans un autre langage), il vaut mieux citer les références... Maintenant, tu fais un dossier avec des sous-dossiers (que tu appelle comme tu veux). Tu mets dans un des sous-dossiers un fichier word (càd .doc), par exemple. tu l'ouvre pour qu'il soit en mode utilisation, essaie la fameuse fonction que tu as plagiée et... surprise... tu ne peux pas effacer les dossiers en amont il faut fermer le dossier word et recommencer l'opération. Si tu veux faire quelque chose de personnel , essaie de réglér ce problème et tu auras tous les honneurs (si tu y arrives sans boucle, chapeau) |
|
Cette discussion est classée dans : fichiers, supprimer, repertoire, manip
 Répondre à ce message
 Sujets en rapport avec ce message
beaucoups de question [ par snakefinger ]
salut ,voici mes question:1)comment supprimer un repertoire de windows qui contient des fichiers(*.tmp etc..) car j'arrive a supprimer q'un repertoire
beaucoups de question [ par snakefinger ]
salut ,voici mes question:1)comment supprimer un repertoire de windows qui contient des fichiers(*.tmp etc..) car j'arrive a supprimer q'un repertoire
Selection de fichiers aleatoire [ par manu00 ]
Bonjour,j'ai un petit soucis pour me mettre les idées au clair...Je ne vois pas trop comment faire pour lister tout les fichiers d'un certain type (ic
Compter les fichiers d un repertoire [ par MoveX ]
procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);var Info: TSearchRec; Nombre: Integer;begin nombre:= 0; if FindFirst(Shell
systeme de fichiers [ par Zan ]
bonjour,existe-t-il une bibliotheques de fonction concernant la gestion des fichiers et repertoires ?qui permettrait, par exemple, de supprimer un rep
suppressionde repertoire et fichier [ par drakaon ]
salutje cherche à réaliser une fenêtre qui sur un click bouton supprime le repertoire selectionner par un TDirectoryListBox et les fichiers présent da
Liste des fichiers d'un repertoire [ par fallen angels ]
Bonjour à tous,J'ai installé Delphi 6 il y 2 jours pour enfin (essayer) de développer des petits softs et ca commence mal ;o)J'ai quand même compris c
Comment delete des fichiers d'un dossier systeme [ par BenXbox ]
Salut à tous,Voila j'ai essayer de supprimer manuellement le dossier Cookies de ma session Xp, et il m'affiche un message comme quoi je ne peut pas su
Faire une copy d'un repertoire à un autre... [ par jennybless ]
Salut? J'ai écrit ces codes afin de faire une copie des fichiers se trouvant dans un repertoire. Sur mon form, j'ai un Barchar et un Tbutton. Je les
supprimer des *.tmp [ par snakefinger ]
salut:1)je voudrais savoir comment effacer des fichiers telque *.tmp,*.old2)kel sont les autres fichiers inutile qu'il faut supprimer a part les *.old
 Livres en rapport
|
Derniers Blogs
 UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|