le programme ci-dessous a pour fontion de créer un fichier
******
Public Sub file_create(filepath As String)
Dim fs As FileSystemObject
Dim a ' as ??
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(filepath, True)
a.Close
End Sub
******
je ne sais pas par quel type définir la variable a .
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
Evaro
Bonjour Thierry,
"thierry" a écrit dans le message de news: 3f45437e$0$16170$
bonsoir,
le programme ci-dessous a pour fontion de créer un fichier
****** Public Sub file_create(filepath As String) Dim fs As FileSystemObject Dim a ' as ?? Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(filepath, True) a.Close End Sub ******
je ne sais pas par quel type définir la variable a .
TextStream
-- @ + Etienne Charte du forum: http://users.skynet.be/mpfa/charte.htm
Bonjour Thierry,
"thierry" <thierrytospam@thierry.com> a écrit dans le message de news:
3f45437e$0$16170$626a54ce@news.free.fr...
bonsoir,
le programme ci-dessous a pour fontion de créer un fichier
******
Public Sub file_create(filepath As String)
Dim fs As FileSystemObject
Dim a ' as ??
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(filepath, True)
a.Close
End Sub
******
je ne sais pas par quel type définir la variable a .
TextStream
--
@ +
Etienne
Charte du forum: http://users.skynet.be/mpfa/charte.htm
"thierry" a écrit dans le message de news: 3f45437e$0$16170$
bonsoir,
le programme ci-dessous a pour fontion de créer un fichier
****** Public Sub file_create(filepath As String) Dim fs As FileSystemObject Dim a ' as ?? Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(filepath, True) a.Close End Sub ******
je ne sais pas par quel type définir la variable a .
TextStream
-- @ + Etienne Charte du forum: http://users.skynet.be/mpfa/charte.htm
moilneu
"thierry" a écrit dans le message de news: bonsoir,
le programme ci-dessous a pour fontion de créer un fichier
****** Public Sub file_create(filepath As String) Dim fs As FileSystemObject Dim a ' as ?? Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(filepath, True) a.Close End Sub ******
je ne sais pas par quel type définir la variable a .
merci d'avance srmt
Bonjour Thierry,
Déclare un objet Scripting.TextStream.
Autre chose, comme tu utilise explicitement le type de données, je suppose que tu as référencé la bilio FSO, dans ce cas n'utilise pas CreateObject, mais le mot clè New :
============== Public Sub file_create(filepath As String) Dim fs As New Scripting.FileSystemObject Dim a As Scripting.TextStream Set a = fs.CreateTextFile(filepath, True) a.Close set fs =nothing set a = nothing End Sub ============= note que si tu ne connais pas le type, soit tu déclare une variable sans type ou variant, ensuite, en mode pas à pas, tu as la possibilité de connaître le type de l'objet dans la fenêtre des variables locales. soit en utilisant l'explorateur d'objet, tu sélectionne la biblio (ici Scripting) et la méthode (ici CreateTextFile) la fenêtre d'information t'indique le type d'objet que la méthode retourne.
-- Laurent
"thierry" <thierrytospam@thierry.com> a écrit dans le message de news:
bonsoir,
le programme ci-dessous a pour fontion de créer un fichier
******
Public Sub file_create(filepath As String)
Dim fs As FileSystemObject
Dim a ' as ??
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(filepath, True)
a.Close
End Sub
******
je ne sais pas par quel type définir la variable a .
merci d'avance
srmt
Bonjour Thierry,
Déclare un objet Scripting.TextStream.
Autre chose, comme tu utilise explicitement le type de données, je
suppose que tu as référencé la bilio FSO, dans ce cas n'utilise pas
CreateObject, mais le mot clè New :
============== Public Sub file_create(filepath As String)
Dim fs As New Scripting.FileSystemObject
Dim a As Scripting.TextStream
Set a = fs.CreateTextFile(filepath, True)
a.Close
set fs =nothing
set a = nothing
End Sub
=============
note que si tu ne connais pas le type, soit tu déclare une variable sans
type ou variant, ensuite, en mode pas à pas, tu as la possibilité de
connaître le type de l'objet dans la fenêtre des variables locales.
soit en utilisant l'explorateur d'objet, tu sélectionne la biblio (ici
Scripting) et la méthode (ici CreateTextFile) la fenêtre d'information
t'indique le type d'objet que la méthode retourne.
"thierry" a écrit dans le message de news: bonsoir,
le programme ci-dessous a pour fontion de créer un fichier
****** Public Sub file_create(filepath As String) Dim fs As FileSystemObject Dim a ' as ?? Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(filepath, True) a.Close End Sub ******
je ne sais pas par quel type définir la variable a .
merci d'avance srmt
Bonjour Thierry,
Déclare un objet Scripting.TextStream.
Autre chose, comme tu utilise explicitement le type de données, je suppose que tu as référencé la bilio FSO, dans ce cas n'utilise pas CreateObject, mais le mot clè New :
============== Public Sub file_create(filepath As String) Dim fs As New Scripting.FileSystemObject Dim a As Scripting.TextStream Set a = fs.CreateTextFile(filepath, True) a.Close set fs =nothing set a = nothing End Sub ============= note que si tu ne connais pas le type, soit tu déclare une variable sans type ou variant, ensuite, en mode pas à pas, tu as la possibilité de connaître le type de l'objet dans la fenêtre des variables locales. soit en utilisant l'explorateur d'objet, tu sélectionne la biblio (ici Scripting) et la méthode (ici CreateTextFile) la fenêtre d'information t'indique le type d'objet que la méthode retourne.
-- Laurent
Anor
Bonjour moilneu
moilneu a confié : || Dim fs As FileSystemObject || Dim a ' as ?? || Set fs = CreateObject("Scripting.FileSystemObject") || Set a = fs.CreateTextFile(filepath, True)
| Déclare un objet Scripting.TextStream. | | Autre chose, comme tu utilise explicitement le type de données, je | suppose que tu as référencé la bilio FSO, dans ce cas n'utilise pas | CreateObject, mais le mot clè New :
| Dim fs As New Scripting.FileSystemObject | Dim a As Scripting.TextStream | Set a = fs.CreateTextFile(filepath, True)
Je cromprends ce que voulait dire 3stone maintenant dans "l'autre" fil !! Voila une nuance qui me turlupinait depuis quelques temps !!
Merci :-)
Bon c'est pas tout, j'ai plein de code à rendre plus propre moi maintenant ;-))
moilneu <moilneu@hotmail.com> a confié :
|| Dim fs As FileSystemObject
|| Dim a ' as ??
|| Set fs = CreateObject("Scripting.FileSystemObject")
|| Set a = fs.CreateTextFile(filepath, True)
| Déclare un objet Scripting.TextStream.
|
| Autre chose, comme tu utilise explicitement le type de données, je
| suppose que tu as référencé la bilio FSO, dans ce cas n'utilise pas
| CreateObject, mais le mot clè New :
| Dim fs As New Scripting.FileSystemObject
| Dim a As Scripting.TextStream
| Set a = fs.CreateTextFile(filepath, True)
Je cromprends ce que voulait dire 3stone maintenant dans "l'autre" fil !!
Voila une nuance qui me turlupinait depuis quelques temps !!
Merci :-)
Bon c'est pas tout, j'ai plein de code à rendre plus propre moi maintenant ;-))
moilneu a confié : || Dim fs As FileSystemObject || Dim a ' as ?? || Set fs = CreateObject("Scripting.FileSystemObject") || Set a = fs.CreateTextFile(filepath, True)
| Déclare un objet Scripting.TextStream. | | Autre chose, comme tu utilise explicitement le type de données, je | suppose que tu as référencé la bilio FSO, dans ce cas n'utilise pas | CreateObject, mais le mot clè New :
| Dim fs As New Scripting.FileSystemObject | Dim a As Scripting.TextStream | Set a = fs.CreateTextFile(filepath, True)
Je cromprends ce que voulait dire 3stone maintenant dans "l'autre" fil !! Voila une nuance qui me turlupinait depuis quelques temps !!
Merci :-)
Bon c'est pas tout, j'ai plein de code à rendre plus propre moi maintenant ;-))
