Copier fichier vers repertoire en fonction des informations contenues dans le te

Signaler
Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
30 mars 2010
-
Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
30 mars 2010
-
Bonjours,
J'espere etre dans le bon endroit.
Voici mon soucis dans ce script VBS je deplace et renomme en fonction de ce que je recupere dans le fichier. Ici a la ligne 1 le nom de medecin et le nom du fichier ou le deplacer, mon soucis c'est de pouvoir passer a la ligne n°2 pour recuperer une autre info (le nom du patient) et donc de l'ajouter au nom du fichier.
Exemple: fichier 0011100110.hpm deplacer dans divers avec le nom recuperer ligne 1 dans ce fichier TOTO.hpm et je voudrai donc SALUT_TOTO.hpm (salut ligne 2 - toto ligne 1)
merci d'avance pour votre aide :)
voici le script

'--- déclaration variables
Dim rep_reception
Dim type_fichier
Dim file
Dim line

'--- init variables
type_fichier="*.hpm"
rep_reception="C:"
rep_histo_intranet="J:"

'--- déclaration folder file system object
Dim o_folder
Set o_folder= CreateObject( "Scripting.FileSystemObject" )

'--- déclaration file file system object
Dim o_file,o_file2,file_to_mowe
Set o_file= CreateObject( "Scripting.FileSystemObject" )
Set o_file2= CreateObject( "Scripting.FileSystemObject" )

'--- Parcours du répertoire de réception
if o_folder.FolderExists(rep_reception) then
For each file in o_folder.GetFolder(rep_reception ).Files
'Wscript.Echo file.path
set line = o_file.OpenTextFile(file.path,1,false)
texte = line.ReadLine
service = mid(texte,41,40)
medecin = mid(texte,81,40)
medecin = rtrim(medecin)
'Wscript.Echo service
line.Close
Select case service
case "ONCOLOGIE "
'Wscript.Echo service & medecin
o_file2.CopyFile file.path, rep_reception & "\oncologie" & file.name
o_file2.MoveFile file.path, rep_histo_intranet & "\oncologie" & medecin & "_" & file.name
case "COMITE "
'Wscript.Echo service & medecin
o_file2.CopyFile file.path, rep_reception & "\comite" & file.name
o_file2.MoveFile file.path, rep_histo_intranet & "\comite" & medecin & "_" & file.name
case "GYNECOLOGIE "
'Wscript.Echo service & medecin
o_file2.CopyFile file.path, rep_reception & "\gynecologie" & file.name
o_file2.MoveFile file.path, rep_histo_intranet & "\gynecologie" & medecin & "_" & file.name
case else
o_file2.CopyFile file.path, rep_reception & "\divers" & file.name
o_file2.MoveFile file.path, rep_histo_intranet & "\divers" & medecin & "_" & file.name
End Select
Next
Else
MsgBox "Le répertoire " & rep_reception & "n'existe pas"
End if

1 réponse

Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
30 mars 2010

Personne pour m'aider ? :(