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)
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
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)
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
Le Sat, 15 Dec 2007 12:20:49 +0100, alainL <jarailet@club-internet.fr> 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)
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
gilles.tourreau@pos.fr
S.A.R.L. P.O.S
Le spécialiste en motoculture depuis + de 30 ans !
http://www.pos.fr
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)
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
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)
Dans : news:ee5rLywPIHA.1188@TK2MSFTNGP04.phx.gbl,
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)
(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)