Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic FSO

FSO

2 réponses
Avatar
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
------------------------------------------------------------------
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Gilles TOURREAU
Le Sat, 15 Dec 2007 12:20:49 +0100, alainL a
é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
Avatar
Fred
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)