Recherche qhelqu'un qui connait VBScript !!!

Question

Bonsoir, (ou bonjour)

Recherche quelqu'un qui connait VBScript .
Actuellement, VicoLaChip2 et Almandric essaient de me dépanner. Je les remercie de nouveau et m'excuse auprès d'eux de "taper à ttes les portes" !!! 

Rappel de ma demande:
Voici les actions que je souhaite faire séquentiellement:

* sur ma station NT, mais en local (pas de Web), je transfert des fichiers de BULL (mainframe) sur un répertoire c:\CSSI\xxxx (xxxx étant ALES, BOUR ou PNEU). Ce transfert est fait une fois par mois par GCOS7.
* ne figure pas dans la proc, je copie les répertoires ci-dessus sur des CDs
* le 1er jour du mois, à partir de ma station, je crée des répertoires d'archives (c:\Archive-xxxx\aaaa-mm[-1] puis je transferts les fichiers de c:\CSSI\xxxx\*.txt dans c:\Archive-xxxx\aaaa-mm\*.txt

=> Pause, on respire.

J'ai crée une proc (ma 1ère et elle marche !!!) pour les étapes ci-dessus.
* par contre, et je n'y arrive pas, j'aimerais faire apparaitre une fenetre où figureraient:
c:\Archive-xxxx\aaaa-mm	ous les fichiers (+ date création et taille)

Détail important:
Je suis en local et je n'ai pas VB.
J'ai la doc Windows Script 5.6, mais je ne la trouve pas trop explicite pour un débutant comme moi.

J'en profite pour féliciter Nix de ce super site.
Faillot jean-marc.......

cs_JMO · Answer

Message de ViciLaChip2:
A la place : nommé fichier.vbs
>>debut
msgbox showFolderList("d:"),vbmessage,"Liste du répertoire"
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
'pour chaque fichiers de mon objet files de mon objet fso...:)
For Each fichiers in fic
'le nom du fichier
strListe = strListe & vbcrlf & fichiers.name
Next
ShowFolderList = strListe
End Function
>>fin
'-----> j'ai testé, ça marche !!

Réponse de JMO:
Salut,

Tu es super !!!! ça marche !!!!
Je n'ai + qu'à soigner la présentation.
Je pense que je vais passer une bonne nuit dessus.
Je te commence à avoir des cernes (bon, à mon age, c'est naturel)...boulot professionnel sur ma bécane la journée + boulot dilétante, mais professionnel, la nuit
On appel ça faire du web intelligent....

A +....bosse bien

jean-marc

VicoLaChips2 · Answer

hello !!

un petit url avec un ocx à télécharger(bas de page),
qui permet de generer de vrai forms(boutons, labels, list, etc...) directement avec des script vbs

http://home.att.net/~wshvbs/wshLtWtFormPage.htm
(site US).......> bonne chance @+ :)

Recherche qhelqu'un qui connait VBScript !!!

2 réponses

Discussions similaires