FSO

Le
alainL
Bonjour,
(VB2005 Express, XP2)
Un bout de code trouvé sur le net, et qui correspnd à ce que je cherche,
mais je ne parviens pas à l'utiliser.
Affaire de déclaration ? (VB me refuse le set FSO, je ne sais pas où le
mettre !)
Mon fichier "C:chemin.txt" existe.
Merci de m'éclairer

alain





Public Class Form1
Public FSO As Object

_________________________________


Sub Form1_Load()
FSO = CreateObject("Scripting.FileSystemObject")

Dim File As Object
File = FSO.OpenTextFile("C:chemin.txt", 1, True)


Dim TEMP_Line As String

Do While Not File.AtEndOfStream

TEMP_Line = File.ReadLine
TextBox1.text = "Ligne lue: " & TEMP_Line
Loop

File.Close()
end sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles TOURREAU
Le #12220711
Le Sat, 15 Dec 2007 12:20:49 +0100, alainL écrit:

Bonjour,
(VB2005 Express, XP2)
Un bout de code trouvé sur le net, et qui correspnd à ce que je cherche,
mais je ne parviens pas à l'utiliser.
Affaire de déclaration ? (VB me refuse le set FSO, je ne sais pas où le
mettre !)
Mon fichier "C:chemin.txt" existe.
Merci de m'éclairer

alain



------------------------------------------------

Public Class Form1
Public FSO As Object

_________________________________


Sub Form1_Load()
FSO = CreateObject("Scripting.FileSystemObject")

Dim File As Object
File = FSO.OpenTextFile("C:chemin.txt", 1, True)


Dim TEMP_Line As String

Do While Not File.AtEndOfStream

TEMP_Line = File.ReadLine
TextBox1.text = "Ligne lue: " & TEMP_Line
Loop

File.Close()
end sub
------------------------------------------------------------------



Scripting.FileSystemObject est utilisée uniquement pour les scripts
Windows VB...

Pour lire votre fuchier texte, utilisez la classe File et en particulier
la méthode OpenText...

Lorsque vous cherchez du code sur le net, pensez à spécifier en plus dans
les moteurs de recherche le mot clé "dotnet", car sinon vous allez vous
retrouver avec du code VB6 et/ou VBSCript en plus de VB.NET ....

Cordialement

--
Gilles TOURREAU


S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
Fred
Le #12220701
Dans : news:,
alainL disait :
Bonjour,



Bonjour,

(VB2005 Express, XP2)
Un bout de code trouvé sur le net, et qui correspnd à ce que je
cherche, mais je ne parviens pas à l'utiliser.
Affaire de déclaration ? (VB me refuse le set FSO, je ne sais pas où
le mettre !)




Ne pas utiliser FSO avec .NET
Il y a tout ce qu'il faut et même plus dans System.IO

Dim filename As String = "C:chemin.txt"
Dim line As String
Using sr As New StreamReader(filename, Encoding.Default)
While Not sr.EndOfStream
line = sr.ReadLine
'---
End While
sr.Close()
End Using

(Importer les espaces de nom System.IO et System.Text)

--
Fred
http://www.cerber mail.com/?3kA6ftaCvT (enlever l'espace)
Publicité
Poster une réponse
Anonyme