Ouverture fichier texte sans extension

Bonjour,

Afin de verifier l'état de sauvegardes, je dois intérroger des fichiers de log sans extension sur des serveurs distants et remplir un fichier Excel.
Je voulais le faire en VBA mais je pense que le VBS sera plus adapté (ping des machines, test présence fichier..).

Mon seul vrai problème est que ce fichier est sans extension.
L'utilisation d'un FSOs et des méthodes GetFile et OpenAsTextStream ne fonctionne pas ("./.. astextStream", pas étonnant !!!).

Mon coutournement serait de:
- Copier le fichier en y ajoutant une extension ".txt"
- Récupérer les informations
- Supprimer le fichier

N'y a t'il pas une vraie solution pour les ouvrir?

Merci de votre aide,

Cordialement

m@nolo

Bonjour,

J'ai créé un fichier "toto" sans extension avec une ligne "Le texte".

Dans un vbs :

Code:

---

1 2 3 4 5

set fso = createobject("scripting.filesystemobject") set fs = fso.opentextfile("toto") Texte = fs.readline msgbox Texte

---

Ca fonctionne nickel !