script vbs ou wsh

script vbs ou wsh - VB/VBA/VBS - Programmation

Marsh Posté le 13-12-2005 à 16:23:51    

Bonjour,
J'ai besoin de faire un enregistrement journalier et automatique d'images dans des répertoires différents (lundi, mardi..)selon leur nom (ce nom est formé de la date et l'heure de l'enregistrement des images par une caméra) puis envoyer chaque soir le répertoire de la journee par mail. Je pense qu'il est nécessaire de faire deux scripts mais j'ignore en quel langage et comment. Je cherche quelques conseils pour démarrer, merci d'avance pour votre aide.

Reply

Marsh Posté le 13-12-2005 à 16:23:51   

Reply

Marsh Posté le 13-12-2005 à 16:34:03    

Un seul script VBS devrait suffire pour faire ça, il suffit ensuite de définir une tache planifiée qui l'executerait periodiquement.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 14-12-2005 à 08:24:04    

Merci, pourriez-vous m'indiquer un site qui pourrait m'aider à utiliser ce langage que je ne connais pas.

Reply

Marsh Posté le 14-12-2005 à 10:42:48    

Perso, j'ai apris sur le tas avec l'aide de la MSDN, je ne connais donc pas de tutoriaux pour ce langage. Si vous avez déjà des connaissance en programmation, j'imagine que vous pourrez vous débrouiller avec l'aide de la MSDN:
http://msdn.microsoft.com/library/ [...] 61ca06.asp
 
Sinon, une recherche sur google devrait vous aider à trouver des tutoriaux.
 
Bon courage et n'hésiter pas à poser des questions si vous êtes perdus :hello:


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 14-12-2005 à 15:55:43    

Bon je tatonne vraiment, j'ai commencé par quelque chose de très simple : la copie des fichiers dans le répertoire. Ca marche pour un fichier mais dès qu'il y en a deux ça plante. Je ne crois pas avoir très bien saisi ce qui se rapporte aux instances (fso). Voici le code :
 
dim strSourceFile,strTargetFile,file,collfiles,curfile,fs
strSourceFile="C:\vbs\test\"
' Créer une instance du FSO
Set fso = CreateObject("Scripting.FileSystemObject" )
Set fs=fso.GetFolder(strSourceFile)
Set collfiles=fs.Files
' Exploration des fichiers du dossier
for each file in collfiles
   curfile= file.name
   strSourceFile=strSourceFile&curfile
   strTargetFile="C:\vbs\test\lundi\"&curfile
' Création d'une copie du fichier
fso.CopyFile strSourceFile, strTargetFile
next
' Libération des objets
Set fs = Nothing
Set fso = Nothing
Set collfiles = Nothing
 
Pourriez-vous me donner un coup de pouce, merci d'avance.

Reply

Marsh Posté le 14-12-2005 à 16:18:58    

modifiez votre boucle for comme ci dessous:
 
for each file in collfiles  
   curfile= file.path  
   strSourceFile=strSourceFile&curfile  
   strTargetFile="C:\vbs\test\lundi\"&curfile  
    ' Création d'une copie du fichier  
    fso.CopyFile curfile, strTargetFile  
next
 
 
mais à part ce problème, le reste du script est correct :)
 
P.S. la "liberation des objets" à la fin du script est inutile, le moteur VBScript le fait très bien tout seul. On trouve cette pratique très fréquemment dans le code VB mais ça ne change strictement rien au comportement du code, je peux vous l'assurer, j'ai effectué de nombreux tests là dessus ;)


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 14-12-2005 à 16:31:12    

Ca ne fonctionne pas, j'ai l'erreur suivante :
ligne :13
erreur : nom ou numero de fichier incorrect

Reply

Marsh Posté le 14-12-2005 à 16:35:50    

Effectivement, je recommence:
 
for each file in collfiles  
   curfile= file.path  
   strSourceFile=strSourceFile&curfile  
   strTargetFile="C:\vbs\test\lundi\" & file.name  
    ' Création d'une copie du fichier  
    fso.CopyFile curfile, strTargetFile  
next


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 15-12-2005 à 08:26:23    

ça marche merci beaucoup

Reply

Marsh Posté le 15-12-2005 à 11:07:04    

de rien :)


Message édité par mareek le 15-12-2005 à 11:09:13

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed