Rechercher : dans
Par :

VBS - Afficher un fichier texte

Dernière réponse le 30 aoû 2007 à 07:04:11 tontonol, le 29 aoû 2007 à 19:25:50 
 Signaler ce message aux modérateurs

Bonjour,

J'ai fait un script qui me retourne le résultat dans un fichier texte
Le nom de ce fichier texte est variabilisé (FichierSortie) à l'aide d'un inputbox . le fichier est généré à l'emplacement où le script est exécuté

Je cherche une méthode qui me permettrai de lancer l'affichage du fichier texte avec notepad2 ( à parir du sub main) une fois le script exécuté.

Merci pour vos orientations

Le doute est un hommage rendu à l'espoir.

Configuration: Windows 2000
Firefox 2.0.0.6

Meilleures réponses pour « VBS Afficher un fichier texte » dans :
MySQL - Chargement d'un fichier texte dans une table VoirPour charger une fichier texte défini comme suit : $ tail /home/user1/test.txt 'nom1',1,9 'nom2',2,3 'nom3',3,54 'nom4',4,2 'nom5',5,9 Dans une table définie comme suit : CREATE TABLE chargertest ( ...
Extensions de fichiers VoirIntroduction aux fichiers Un fichier est une suite d'informations binaires, c'est-à-dire une suite de 0 et de 1. Ce fichier peut être stocké pour garder une trace de ces informations. Un fichier texte est un fichier composé de caractères stockés...
Qu'est-ce qu'un fichier? VoirQu'est-ce qu'un fichier? Un fichier est une suite d'informations binaires, c'est-à-dire une suite de 0 et de 1. Ce fichier peut être stocké pour garder une trace de ces informations. Un fichier texte est un fichier composé de caractères stockés...
Fichier TXT VoirFormat TXT Un fichier TXT est un fichier texte, c'est-à-dire un simple fichier contenant du texte au format ASCII. Pour ouvrir ou modifier un tel fichier, il suffit d'utiliser le bloc-notes ou un éditeur de texte traditionnel.

1

 tontonol, le 30 aoû 2007 à 07:04:11

J'ai trouvé tout seul, ne cherchez plus. Merci

Sub afficheFichierSortie()
Dim oFSO, oWshShell
Set oFSO = CreateObject("Scripting.FileSystemObject")
If oFSO.FileExists(FichierSortie) Then
Set oWshShell = WScript.CreateObject("WScript.Shell")
oWshShell.Run "notepad.exe " & FichierSortie, 1, False
Set oWshShell = Nothing
End If
Set oFSO = Nothing
End Sub

Configuration: Windows 2000
Firefox 2.0.0.6

Répondre à tontonol