Sujet Précédent Sujet Suivant

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

kenichii Messages postés 8 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 30 mars 2010 - 29 mars 2010 à 10:23
kenichii Messages postés 8 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 30 mars 2010 - 30 mars 2010 à 16:51

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

A voir également:

Copier fichier vers repertoire en fonction des informations contenues dans le te
Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
Fichier class ✓ - Forum Java
Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
Fonction pow en c ✓ - Forum C
Convertisseur jpg vers png ✓ - Forum Java

1 réponse

Réponse 1 / 1

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

Personne pour m'aider ? :(

Discussions similaires

[vba] recopier la valeur d'une cellule dans une autre feuille.

remise a zero de fonction

Ouvrir un fichier java

Copier feuille excel dans un autre classeur sans l'ouvrir vb excel

Copier coller valeurs d'une feuille vers une autre feuille à partir de la premiè

Votre réponse

Discussions similaires