Discussion :

[Milyshyn76]

Coucou a tous,

Voilà, mon problème n'est pas long, j'ai fait pas mal de recherche, je voudrais supprimer un fichier .csv dans un repertoire diver, quelqu'un connait-il la syntaxe, je sais que l'on doit utiliser DeleteFile mais ma procédure ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
file = "C:\Documents and Settings\circuit.csv"
Set objet = CreateObject("Scripting.FileSystemObject")
objet.DeleteFile (file), True

[marot_r]

Moi j'utilise la vielle syntaxe avec Kill.

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
kill "C:\temp\monFichier.txt"

A+

[Domi2]

Bonjour,

Tu peux tout simplement utiliser Kill...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Kill "C:\Documents and Settings\circuit.csv"

Domi2

[Milyshyn76]

OK merci, juste une petite chose,
Connais tu la syntaxe if FileExists, pour utiliser la condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
si monfichier existe alors
je le supprimer
sinon
je le crée

[marot_r]

Là encore j'utilise une vielle syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
dim nomFichier as string
nomFichier=dir "c:\temp\toto.txt"
 
if nomFichier="" then
    'Le fichier n'existe pas
  else
    'Le fichier existe
end if

A+

[Domi2]

Re,

Toujours dans le même ordre d'idée (code de la FAQ)

If Dir("C:\Documents and Settings\circuit.csv", vbHidden) <> "" Then
'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
End If

Domi2

[Milyshyn76]

OKay, pas mal du tout !
impeccable ....

merci milee fois !!!


La réponse est au dessus, pour ceux qui veulent comprendre, epas besoin de remettre le code...