Discussion :

[camyo]

Re Bonjour pour certains....

Dans la FAQ j'ai trouvé:

-Comment savoir si un fichier existe ? meme caché

-Comment détruire un fichier ?


Mais moi je cherche a detruire un fichier caché
et avec la methode Kill; VB me dis :

Fichier introuvable (erreur 53)

des idées....?,...?
merci si c'est le cas

[ThierryAIM]

tu dois mettre ton fichier en attribut "normal" avant de faire un kill

regarde la fonction SetAttr

Code :

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

SetAttr monFichier, vbNormal

[camyo]

Merci


J'essaye de suite

et je repond.....

[camyo]

Maitenant c'est sur cette ligne que j'ai
mon erreur 53

[camyo]

je vais quand meme mettre un bout de mon code

cela peu peut etre aider.....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'           Supprime les fichier de Mac du type : ._ nom.extention
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Dir(mondossier + "_*.*", vbNormal + vbHidden + vbsytem + vbReadOnly) <> "" Then
        GoTo detruire
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'               Supprime les fichier .DS_Store Généré par Mac
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ElseIf Dir(mondossier + ".DS_Store", vbNormal + vbHidden + vbsytem + vbReadOnly) <> "" Then
        GoTo detruire
 
     Else:
        GoTo suite
 
    End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'       Detruit le fichier spécifié
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
detruire:
SetAttr monfichier, vbNormal
Kill (mondossier & monfichier)

en esperant que....... moi je lutte toujours

[ThierryAIM]

tu as un problème de path dans tes fonctions SetAttr et Kill

ou sont définis mondossier et monfichier ?
il faut le path complet dans SetAttr

PS: la structure de ton code est pas terrible

[camyo]

C'est possible que la structure de mon code laisse a désiré

je suis qu'un débutant en stage..........

mais bon.....


merci vraiment Thierry pour ton aide

Il fallait effectivement mettre le path complet dans SetAttr

donc:

Code :

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

1
2
3
detruire:
SetAttr mondossier & monfichier, vbNormal
Kill (mondossier & monfichier)

et maintenant cela fonctionne

bonne journée a tous