VBS - Afficher un fichier texte
Fermé
tontonol
Messages postés
43
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
10 septembre 2007
-
29 août 2007 à 19:25
tontonol - 30 août 2007 à 07:04
tontonol - 30 août 2007 à 07:04
A voir également:
- VBS - Afficher un fichier texte
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
1 réponse
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
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