Discussion :

[patricktoulon]

bonjour a tous


je suis en train de travailler sur une petite application travaillant sur le desktop.ini des dossiers

mon application fonctionne très bien sauf si le desktop.ini est caché

mon application détruit le fichier avant d'en recréer un, en utilisant

la fonction existe que l'on trouve dans la faq

mon souci c'est que je n'aie aucune idée pour rendre ce fichier visible avant de le supprimer ou un moyen de le supprimer même si il est caché

quelqu'un a une idée?

merci d'avance

[Invité]

Bonjour

Et quelle méthode utilises-tu actuellement ?

Philippe

[patricktoulon]

bonsoir philippe jochmans


je supprime le fichier.ini comme ca

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function
Sub creation_fichier(ledossier As String, couleur As Long)
    If FichierExiste(ledossier & "\desktop.ini") = True Then
        Kill (ledossier & "\desktop.ini")
    End If
'reste de mon code 
end sub

je dois ajouter que très souvent ce son les dossier d'origine de l'installation

dans le (c \document and setting ....ect...)

puisque dans les dossiers des disque durs secondaires et plus je n'ai pas de fichier "desktop.ini"" dedans

merci pour le coup de main


au plaisir

[tedo01]

Bonjour,

La bibliothèque "Microsoft Scripting Runtime" offre la panoplie (presque) parfaite pour manipuler le système de fichiers et de dossiers.

Après avoir ajouté cette référence dans le projet, il faut instancier un objet "maître" :

Code :

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

Set objFSO = New FileSystemObject

Puis, grâce à cet objet, les méthodes GetFile et GetFolder donnent accès aux objets fichiers et répertoires :

Code :

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

Set objMonFichier = objFSO.GetFile(ledossier & "\desktop.ini")

A priori on peut supprimer un fichier, qu'il soit caché ou non, par

Code :

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

objMonFichier.Delete

Sinon, les attributs du fichiers se gèrent par la logique booléenne.
Les valeurs sont décrites dans l'énumération FileAttribute.
Par exemple, cette expression renvoit vrai ou faux selon que le fichier est caché ou pas :

Code :

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

objMonFichier.Attributes And Hidden

Je cache le fichier comme suit :

Code :

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

objMonFichier.Attributes = objMonFichier.Attributes And Hidden

Et je le rend visible comme ça :

Code :

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

objMonFichier.Attributes = objMonFichier.Attributes And Not Hidden

[patricktoulon]

bonsoir Tedo01

je vais voir ca
j'avais completement oublié le "FSO" (librairie scripting runing time)

je te remercie je reviens en cas

au plaisir

rebonsoir

voila je reviens pour te dire que ça fonctionne mais sur les dossier system d'origine (documents,mes images ect...)

je pense que ça viens de seven

je pense que je vais être obligé d'ouvrir un autre poste pour traiter de se sujet

je te remercie pour tes explications tres inteligibles sur le FSO

n'aurait tu pas un lien pour lister toute les propriétés possible avec cette librairie

merci a toi
au plaisir

[SfJ5Rpw8]

Une partie : 2.2. Fichiers : le FileSystemObject