[VB] suppression d'un fichier sur DD

suppression d'un fichier sur DD [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 12-01-2004 à 11:14:28    

Je suis débutant en VB et je voudrais savoir quelle est la commande pour supprimer un fichier sur le disc dur.
Est-ce que quelqu'un pourrai également me dire comment insérer un saut de ligne dans un fichier texte et mettre le focus a la fin du texte
 
Merci d'avance a tous.

Reply

Marsh Posté le 12-01-2004 à 11:14:28   

Reply

Marsh Posté le 12-01-2004 à 11:50:23    

Reply

Marsh Posté le 13-01-2004 à 02:03:58    

L'exemple donné donné dans via le lien est vraiement pas terrible, un simple "Kill c:\pouet.txt" fait l'affaire.

Reply

Marsh Posté le 14-01-2004 à 19:32:35    

KarLKoX a écrit :

L'exemple donné donné dans via le lien est vraiement pas terrible, un simple "Kill c:\pouet.txt" fait l'affaire.


Pas d'ac [:bou_le_loup   tt] , le file system object ==>  [:yaisse]  
c tres pratik
d'autant ke kill sur un fichier ki existe po = erreur
alors ke avec fso tu peux d'abord, ca sert ^^

Reply

Marsh Posté le 14-01-2004 à 19:33:20    

*d'abord tester l'existance du fichier

Reply

Marsh Posté le 14-01-2004 à 23:30:02    

Tu es allé sur le lien proposé :
 
"But the "FileSystemObject" library is usually disabled(or marked as unsafe) so either your code won't execute at all, or the user will have to agree to run your code. Generally, it's a bad practice to set this object marked safe, as someone may use the above code to delete any file he/she wants(how about all the files in c:\windows...) So it has been disabled just for virus or malicious code cases."
 
C'est pas la mort de tester l'existence d'un fichier en VB.
J'ajouterais que le FSO est moins rapide que des appels VB pure (cf www.mvps.org)


Message édité par karlkox le 14-01-2004 à 23:30:39
Reply

Marsh Posté le 14-01-2004 à 23:50:38    

guillaume1er> le FSO fait partie d'une lib nommée Microsoft Scripting Runtime, et elle est surtout conçue pour tourner via ASP et pas VB6.
 
Mieux vaut utiliser l'API native de VB6 quand t'en a l'occasion que de passer par une lib externe, surtout qu'un Dir suivi d'un Kill, c'est pas bien compliqué (bien que dans mon expérience, un test FileDateTime sur le fichier visé donne des résultats plus fiables, faut que je retrouve mon bout de code dans lequel j'avais commenté pourquoi).  Si la gestion d'erreur VB te semble trop compliquée à manipuler, mieux vaut arrêter la programmation tout de suite, c'est pas un truc pour toi [:kiki]
 
Karlkox: :jap:


Message édité par drasche le 14-01-2004 à 23:51:24

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 15-01-2004 à 13:33:31    

drasche a écrit :

guillaume1er> le FSO fait partie d'une lib nommée Microsoft Scripting Runtime, et elle est surtout conçue pour tourner via ASP et pas VB6.
 
Mieux vaut utiliser l'API native de VB6 quand t'en a l'occasion que de passer par une lib externe, surtout qu'un Dir suivi d'un Kill, c'est pas bien compliqué (bien que dans mon expérience, un test FileDateTime sur le fichier visé donne des résultats plus fiables, faut que je retrouve mon bout de code dans lequel j'avais commenté pourquoi).  Si la gestion d'erreur VB te semble trop compliquée à manipuler, mieux vaut arrêter la programmation tout de suite, c'est pas un truc pour toi [:kiki]
 
Karlkox: :jap:


n'empèche que le FSO est bien pratique pour faire des opération un peu plus compliquées qu'une bête suppression.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 15-01-2004 à 14:02:08    

Code :
  1. Public Function FileExists(ByVal strFileName As String) As Boolean
  2.     Dim dtm As Date
  3. On Error GoTo ErrHandler
  4.     dtm = FileSystem.FileDateTime(strFileName)
  5.     FileExists = True
  6.     Exit Function
  7. ErrHandler:
  8.     FileExists = False
  9. End Function


 
mareek> le FSO je m'en sers uniquement dans des outils externes à l'application principale, jamais en production. Pour ça j'emploie l'API native VB6. De toute façon, nos opérations se résument à lire/écrire complètement un fichier et j'ai aussi des fonctions toutes faites pour un tel job.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 15-01-2004 à 14:10:44    

drasche a écrit :


mareek> le FSO je m'en sers uniquement dans des outils externes à l'application principale, jamais en production. Pour ça j'emploie l'API native VB6. De toute façon, nos opérations se résument à lire/écrire complètement un fichier et j'ai aussi des fonctions toutes faites pour un tel job.


 
Moi je m'en sers surtout dans de petits utilitaires perso quand j'ai besoin de faire pas mal d'operation sur des fichiers (recherche personnalisée, nettoyage de certains types de fichiers inutiles, etc ...). C'est vrai que quand on doit faire des operation simples sur 1 ou 2 fichiers qui sont toujours au même endroit, le FSO est un peu lourd et moins pratique.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 15-01-2004 à 14:10:44   

Reply

Marsh Posté le 15-01-2004 à 14:18:57    

mareek a écrit :

Moi je m'en sers surtout dans de petits utilitaires perso quand j'ai besoin de faire pas mal d'operation sur des fichiers (recherche personnalisée, nettoyage de certains types de fichiers inutiles, etc ...). C'est vrai que quand on doit faire des operation simples sur 1 ou 2 fichiers qui sont toujours au même endroit, le FSO est un peu lourd et moins pratique.


oui, exactement :jap:
 
La plupart de mes utilitaires me servent surtout à browser le code d'un projet et le modifier si le besoin s'en fait sentir. Pour ça j'aime le FSO.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 15-01-2004 à 16:22:03    

Oui, bien sur, le FSO peut rendre de loyaux services lors de traitements de nombreux fichiers, je n'ai rien contre cet objet COM ^_^

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed