Bonjour &(non:j'allais faire J Martin)
Je souhaiterais enregistrer sur le C:\ un fichier *.txt caché
J'ai déjà cela :de Popi
fichier = "c:\coucou.txt"
Mt= "Bonjour"
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile(fichier, True)
a.WriteLine (Mt)
a.Close
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FxM
Bonjour Frédéric,
Ceci crée ou remplace un fichier texte puis place l'attribut caché. Attention, ca ne veut pas dire qu'il ne sera pas visible (si l'OS est configuré pour afficher les fichiers cachés, il est visible)
fichier = "c:coucou.txt" Mt= "Bonjour" Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.CreateTextFile(fichier, True) a.WriteLine (Mt) a.Close Set F = FSo.GetFile(fichier)
F.Attributes = 2
Constante Valeur Description Normal 0 Fichier sans attrubut. (lec/ecr) ReadOnly 1 Fichier en lecture seule. (lec/ecr) Hidden 2 Fichier caché. (lec/ecr) System 4 Fichier systême. (lec/ecr) Volume 8 Etiquette de volume de lecteur de disque. (lec) Directory 16 Dossier ou répertoire. (lec) Archive 32 Le fichier modifié depuis la dernière sauvegarde (lec/ecr) Alias 64 Lien ou raccourci. (lec) Compressed 128 Fichier compressé. (lec)
@+ FxM
Bonjour Frédéric,
Ceci crée ou remplace un fichier texte puis place l'attribut caché.
Attention, ca ne veut pas dire qu'il ne sera pas visible (si l'OS est
configuré pour afficher les fichiers cachés, il est visible)
fichier = "c:coucou.txt"
Mt= "Bonjour"
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile(fichier, True)
a.WriteLine (Mt)
a.Close
Set F = FSo.GetFile(fichier)
F.Attributes = 2
Constante Valeur Description
Normal 0 Fichier sans attrubut. (lec/ecr)
ReadOnly 1 Fichier en lecture seule. (lec/ecr)
Hidden 2 Fichier caché. (lec/ecr)
System 4 Fichier systême. (lec/ecr)
Volume 8 Etiquette de volume de lecteur de disque. (lec)
Directory 16 Dossier ou répertoire. (lec)
Archive 32 Le fichier modifié depuis la dernière sauvegarde (lec/ecr)
Alias 64 Lien ou raccourci. (lec)
Compressed 128 Fichier compressé. (lec)
Ceci crée ou remplace un fichier texte puis place l'attribut caché. Attention, ca ne veut pas dire qu'il ne sera pas visible (si l'OS est configuré pour afficher les fichiers cachés, il est visible)
fichier = "c:coucou.txt" Mt= "Bonjour" Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.CreateTextFile(fichier, True) a.WriteLine (Mt) a.Close Set F = FSo.GetFile(fichier)
F.Attributes = 2
Constante Valeur Description Normal 0 Fichier sans attrubut. (lec/ecr) ReadOnly 1 Fichier en lecture seule. (lec/ecr) Hidden 2 Fichier caché. (lec/ecr) System 4 Fichier systême. (lec/ecr) Volume 8 Etiquette de volume de lecteur de disque. (lec) Directory 16 Dossier ou répertoire. (lec) Archive 32 Le fichier modifié depuis la dernière sauvegarde (lec/ecr) Alias 64 Lien ou raccourci. (lec) Compressed 128 Fichier compressé. (lec)
@+ FxM
Frédo P.
Merci François
-- Frédéric
"FxM" a écrit dans le message de news:
Bonjour Frédéric,
Ceci crée ou remplace un fichier texte puis place l'attribut caché. Attention, ca ne veut pas dire qu'il ne sera pas visible (si l'OS est configuré pour afficher les fichiers cachés, il est visible)
fichier = "c:coucou.txt" Mt= "Bonjour" Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.CreateTextFile(fichier, True) a.WriteLine (Mt) a.Close Set F = FSo.GetFile(fichier)
F.Attributes = 2
Constante Valeur Description Normal 0 Fichier sans attrubut. (lec/ecr) ReadOnly 1 Fichier en lecture seule. (lec/ecr) Hidden 2 Fichier caché. (lec/ecr) System 4 Fichier systême. (lec/ecr) Volume 8 Etiquette de volume de lecteur de disque. (lec) Directory 16 Dossier ou répertoire. (lec) Archive 32 Le fichier modifié depuis la dernière sauvegarde (lec/ecr) Alias 64 Lien ou raccourci. (lec) Compressed 128 Fichier compressé. (lec)
@+ FxM
Merci François
--
Frédéric
"FxM" <fxmanceaux@chello.fr> a écrit dans le message de news:
edUE3Vs0DHA.1760@TK2MSFTNGP10.phx.gbl...
Bonjour Frédéric,
Ceci crée ou remplace un fichier texte puis place l'attribut caché.
Attention, ca ne veut pas dire qu'il ne sera pas visible (si l'OS est
configuré pour afficher les fichiers cachés, il est visible)
fichier = "c:coucou.txt"
Mt= "Bonjour"
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile(fichier, True)
a.WriteLine (Mt)
a.Close
Set F = FSo.GetFile(fichier)
F.Attributes = 2
Constante Valeur Description
Normal 0 Fichier sans attrubut. (lec/ecr)
ReadOnly 1 Fichier en lecture seule. (lec/ecr)
Hidden 2 Fichier caché. (lec/ecr)
System 4 Fichier systême. (lec/ecr)
Volume 8 Etiquette de volume de lecteur de disque. (lec)
Directory 16 Dossier ou répertoire. (lec)
Archive 32 Le fichier modifié depuis la dernière sauvegarde (lec/ecr)
Alias 64 Lien ou raccourci. (lec)
Compressed 128 Fichier compressé. (lec)
Ceci crée ou remplace un fichier texte puis place l'attribut caché. Attention, ca ne veut pas dire qu'il ne sera pas visible (si l'OS est configuré pour afficher les fichiers cachés, il est visible)
fichier = "c:coucou.txt" Mt= "Bonjour" Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.CreateTextFile(fichier, True) a.WriteLine (Mt) a.Close Set F = FSo.GetFile(fichier)
F.Attributes = 2
Constante Valeur Description Normal 0 Fichier sans attrubut. (lec/ecr) ReadOnly 1 Fichier en lecture seule. (lec/ecr) Hidden 2 Fichier caché. (lec/ecr) System 4 Fichier systême. (lec/ecr) Volume 8 Etiquette de volume de lecteur de disque. (lec) Directory 16 Dossier ou répertoire. (lec) Archive 32 Le fichier modifié depuis la dernière sauvegarde (lec/ecr) Alias 64 Lien ou raccourci. (lec) Compressed 128 Fichier compressé. (lec)
