OVH Cloud OVH Cloud

Gérer un fichier vbScript, comment faire ???

12 réponses
Avatar
LE TROLL
Bonjour,

Pourrais-je avoir les directives de gestion d'un fichier
en vbScript, tels que sous-citées (dans le principe), je
donne l'exemple en VB, je vous remercie d'avoir l'amabilité
de me mettre en vbScript (je suis totalement incompétent et
débutant en la matière):

' -> Si appel = moi (IP ou autre ?) goto fin2 ??? je ne sais
coment l'écrire...
Dim p1 As Integer
Dim compteur As Long
ChDrive App.Path
ChDir App.Path
p1 = FreeFile
Open "compteur.bin" For Binary As p1
If LOF(p1) < 1 then ' création
compteur = 1
Put p1, , compteur ' octet 1 toujours
goto fin1
End If
Get p1, , compteur ' incrémentation gestion
compteur = compteur + 1
Put p1, , compteur
fin1:
Close p1
fin2:
--

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison
!

10 réponses

1 2
Avatar
David Rousset [MS]
Bonjour,

Le mieux pour la gestion de fichiers en script est le FSO
(FileSystemObject).

Je t'invite à lire un document d'introduction à la technologie écrit par
une collègue ici :
http://www.microsoft.com/france/msdn/support/technopoches/default.asp#C_1853

Bon courage,
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Pourrais-je avoir les directives de gestion d'un fichier
en vbScript, tels que sous-citées (dans le principe), je
donne l'exemple en VB, je vous remercie d'avoir l'amabilité
de me mettre en vbScript (je suis totalement incompétent et
débutant en la matière):

' -> Si appel = moi (IP ou autre ?) goto fin2 ??? je ne sais
coment l'écrire...
Dim p1 As Integer
Dim compteur As Long
ChDrive App.Path
ChDir App.Path
p1 = FreeFile
Open "compteur.bin" For Binary As p1
If LOF(p1) < 1 then ' création
compteur = 1
Put p1, , compteur ' octet 1 toujours
goto fin1
End If
Get p1, , compteur ' incrémentation gestion
compteur = compteur + 1
Put p1, , compteur
fin1:
Close p1
fin2:
--

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !





Avatar
scraper
Bonjour LE TROLL, dans le message
news://
tu disais :


google

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
LE TROLL
Non, mais... gogole j'ai déjà regardé, il y a des infos,
mais partielles, il est rare de trouver toute la séquence
que l'on veut, et comme je ne connais rien, il me faut
vraiment tout à la virgule prêt, bon, je vais déjà lire le
fichier recommandé par notre ami.
Je t'embrasse très fort Scraper, merci et bonne soiré :o)
----------

"scraper" a écrit dans le message de
news: %
Bonjour LE TROLL, dans le message
news:// tu disais :

google

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
LE TROLL
Cher David, j'ai vu, je te remercie...

Cependant je n'utilise que rarement la manipulation
d'objet, alors que les fichiers en VB je connais par coeur;
en plus, je veux juste en binaire faire un compteur, ça
m'ennuie d'apprendre tout un vocabulaire nouveau qui
sûrement ne me resservira pas de sitôt pour gérer un
fichier, donc je voudrais bien rester sur ma question
initiale, si tu peux me répondre, juste modifier les
séquences que j'ai écrites, afin que ça tourne en vbscript,
juste ça, après je comprendrais?

@+, bye Joe.
----------------

"David Rousset [MS]" a écrit
dans le message de news:
%
Bonjour,

Le mieux pour la gestion de fichiers en script est le
FSO (FileSystemObject).

Je t'invite à lire un document d'introduction à la
technologie écrit par une collègue ici :
http://www.microsoft.com/france/msdn/support/technopoches/default.asp#C_1853

Bon courage,
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le
newsgroup où il a été posté. Je le consulte régulièrement.

"LE TROLL" <le a écrit dans le message de
news:
Bonjour,

Pourrais-je avoir les directives de gestion d'un
fichier
en vbScript, tels que sous-citées (dans le principe), je
donne l'exemple en VB, je vous remercie d'avoir
l'amabilité
de me mettre en vbScript (je suis totalement incompétent
et
débutant en la matière):

' -> Si appel = moi (IP ou autre ?) goto fin2 ??? je ne
sais
coment l'écrire...
Dim p1 As Integer
Dim compteur As Long
ChDrive App.Path
ChDir App.Path
p1 = FreeFile
Open "compteur.bin" For Binary As p1
If LOF(p1) < 1 then ' création
compteur = 1
Put p1, , compteur ' octet 1 toujours
goto fin1
End If
Get p1, , compteur ' incrémentation gestion
compteur = compteur + 1
Put p1, , compteur
fin1:
Close p1
fin2:
--

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours
raison !









Avatar
scraper
Bonjour David Rousset [MS], dans le message
news://%
tu disais :


Bonjour,

Le mieux pour la gestion de fichiers en script est le FSO
(FileSystemObject).

Je t'invite à lire un document d'introduction à la technologie
écrit par une collègue ici :
http://www.microsoft.com/france/msdn/support/technopoches/default.asp#C_1853


tu ne le connais pas bien :

ça ne l'intéresse pas: le môssieur il veut juste que tu lui fasse son
exemple (et en le remerciant, encore ;-)

le reste, il s'en fout ;-)

Bon courage,


surtout pour nous ...




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Avatar
scraper
Bonjour LE TROLL, dans le message
news://
tu disais :


Non, mais... gogole j'ai déjà regardé, il y a des infos,
mais partielles, il est rare de trouver toute la séquence
que l'on veut, et comme je ne connais rien, il me faut
vraiment tout à la virgule prêt


ça, c'est ballot :o)




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Avatar
David Rousset [MS]
Hello,

Désolé mais si tu veux apprendre le script, il va falloir apprendre à
utiliser les objets COM. Les différents "host" de script sont en effet
limités dans leurs fonctionnalités. Il n'y a ainsi pas de gestion fichiers
possible directement depuis le script. Tu dois obligatoirement faire appel à
un objet COM qui se chargera d'appeler les APIs pour toi.

En plus, tu remarqueras que dans le document que je t'ai fourni, il y a
des exemples tout faits prêts à être "copier/coller". Ne me dis pas que
c'est bien dur. :)

Pas besoin d'apprendre grand chose sur le vocabulaire en question donc.

Pour terminer, tu devrais utiliser davantage le SDK au sujet de VBScript
:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScript.asp?frame=true

Tu y trouveras toutes les réponses à tes questions. Notamment, les
différences importantes entre VB6/VBA et VBScript:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsgrpNonFeatures.asp?frame=true

Bon courage,
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"LE TROLL" <le a écrit dans le message de news:

Cher David, j'ai vu, je te remercie...

Cependant je n'utilise que rarement la manipulation d'objet, alors que
les fichiers en VB je connais par coeur; en plus, je veux juste en binaire
faire un compteur, ça m'ennuie d'apprendre tout un vocabulaire nouveau qui
sûrement ne me resservira pas de sitôt pour gérer un fichier, donc je
voudrais bien rester sur ma question initiale, si tu peux me répondre,
juste modifier les séquences que j'ai écrites, afin que ça tourne en
vbscript, juste ça, après je comprendrais?

@+, bye Joe.
----------------

"David Rousset [MS]" a écrit dans le
message de news: %
Bonjour,

Le mieux pour la gestion de fichiers en script est le FSO
(FileSystemObject).

Je t'invite à lire un document d'introduction à la technologie écrit
par une collègue ici :
http://www.microsoft.com/france/msdn/support/technopoches/default.asp#C_1853

Bon courage,
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.

"LE TROLL" <le a écrit dans le message de news:

Bonjour,

Pourrais-je avoir les directives de gestion d'un fichier
en vbScript, tels que sous-citées (dans le principe), je
donne l'exemple en VB, je vous remercie d'avoir l'amabilité
de me mettre en vbScript (je suis totalement incompétent et
débutant en la matière):

' -> Si appel = moi (IP ou autre ?) goto fin2 ??? je ne sais
coment l'écrire...
Dim p1 As Integer
Dim compteur As Long
ChDrive App.Path
ChDir App.Path
p1 = FreeFile
Open "compteur.bin" For Binary As p1
If LOF(p1) < 1 then ' création
compteur = 1
Put p1, , compteur ' octet 1 toujours
goto fin1
End If
Get p1, , compteur ' incrémentation gestion
compteur = compteur + 1
Put p1, , compteur
fin1:
Close p1
fin2:
--

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison !













Avatar
LE TROLL
Tiens le parasite, de retour, tu n'as pas tenu longtemps...
Pense avec ta tête de piaf, je ne vais pas apprendre un
langage pour faire un compteur.
-------------

"scraper" a écrit dans le message de
news:
Bonjour David Rousset [MS], dans le message
news://%
tu disais :


Bonjour,

Le mieux pour la gestion de fichiers en script est le
FSO
(FileSystemObject).

Je t'invite à lire un document d'introduction à la
technologie
écrit par une collègue ici :
http://www.microsoft.com/france/msdn/support/technopoches/default.asp#C_1853


tu ne le connais pas bien :

ça ne l'intéresse pas: le môssieur il veut juste que tu
lui fasse son exemple (et en le remerciant, encore ;-)

le reste, il s'en fout ;-)

Bon courage,


surtout pour nous ...




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper



Avatar
LE TROLL
le parasite, tu te casse quand?
--------

"scraper" a écrit dans le message de
news:
Bonjour LE TROLL, dans le message
news://
tu disais :


Non, mais... gogole j'ai déjà regardé, il y a des
infos,
mais partielles, il est rare de trouver toute la séquence
que l'on veut, et comme je ne connais rien, il me faut
vraiment tout à la virgule prêt


ça, c'est ballot :o)




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper



Avatar
LE TROLL
Ah, si on ne peut pas faire autrement, dans ce cas, je vais
m'y atteler...
Sinon, heu, tu t'avances un peu, je ne veux pas apprendre le
vbscript pour l'instant, juste faire quelques routines :o)
------------

"David Rousset [MS]" a écrit
dans le message de news:

Hello,

Désolé mais si tu veux apprendre le script, il va
falloir apprendre à utiliser les objets COM. Les
différents "host" de script sont en effet limités dans
leurs fonctionnalités. Il n'y a ainsi pas de gestion
fichiers possible directement depuis le script. Tu dois
obligatoirement faire appel à un objet COM qui se chargera
d'appeler les APIs pour toi.

En plus, tu remarqueras que dans le document que je
t'ai fourni, il y a des exemples tout faits prêts à être
"copier/coller". Ne me dis pas que c'est bien dur. :)

Pas besoin d'apprendre grand chose sur le vocabulaire
en question donc.

Pour terminer, tu devrais utiliser davantage le SDK au
sujet de VBScript :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtoriVBScript.asp?frame=true

Tu y trouveras toutes les réponses à tes questions.
Notamment, les différences importantes entre VB6/VBA et
VBScript:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsgrpNonFeatures.asp?frame=true

Bon courage,
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le
newsgroup où il a été posté. Je le consulte régulièrement.

"LE TROLL" <le a écrit dans le message de
news:
Cher David, j'ai vu, je te remercie...

Cependant je n'utilise que rarement la manipulation
d'objet, alors que les fichiers en VB je connais par
coeur; en plus, je veux juste en binaire faire un
compteur, ça m'ennuie d'apprendre tout un vocabulaire
nouveau qui sûrement ne me resservira pas de sitôt pour
gérer un fichier, donc je voudrais bien rester sur ma
question initiale, si tu peux me répondre, juste modifier
les séquences que j'ai écrites, afin que ça tourne en
vbscript, juste ça, après je comprendrais?

@+, bye Joe.
----------------

"David Rousset [MS]" a
écrit dans le message de news:
%
Bonjour,

Le mieux pour la gestion de fichiers en script est le
FSO (FileSystemObject).

Je t'invite à lire un document d'introduction à la
technologie écrit par une collègue ici :
http://www.microsoft.com/france/msdn/support/technopoches/default.asp#C_1853

Bon courage,
--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le
newsgroup où il a été posté. Je le consulte
régulièrement.

"LE TROLL" <le a écrit dans le message
de news:
Bonjour,

Pourrais-je avoir les directives de gestion d'un
fichier
en vbScript, tels que sous-citées (dans le principe),
je
donne l'exemple en VB, je vous remercie d'avoir
l'amabilité
de me mettre en vbScript (je suis totalement
incompétent et
débutant en la matière):

' -> Si appel = moi (IP ou autre ?) goto fin2 ??? je ne
sais
coment l'écrire...
Dim p1 As Integer
Dim compteur As Long
ChDrive App.Path
ChDir App.Path
p1 = FreeFile
Open "compteur.bin" For Binary As p1
If LOF(p1) < 1 then ' création
compteur = 1
Put p1, , compteur ' octet 1 toujours
goto fin1
End If
Get p1, , compteur ' incrémentation gestion
compteur = compteur + 1
Put p1, , compteur
fin1:
Close p1
fin2:
--

Merci, au revoir et à bientôt.
--
ng75 arobase noos.fr
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait
:
Avec une hache, celui qui tient le manche a toujours
raison !

















1 2