Copie fichier

Question

bonjour le forum 
Apres de nombreuses recherches, j' ai trouvé des scripts de copie de fichiers mais cela ne correspond pas à mes attentes. J' ai un fichier sauvegardé dans un répertoire \sauve qui se trouve dans l' arboresence du dossier ou se trouve le fichier initial. je voudrais par vbscript restaurer ce fichier. Lancer le vbs avec une boite de dialogue ou l' on mettra le nom du fichier de sauvegarde et ensuite la restauration se fera en ecrasant le fichier initial qui sera dans la path 
Merci d' avance pour toute aide 
Barada

cs_Jack · Answer

Salut
Intéresse toi à FSO = FileSystemObject qui permet de faire des opérations sur répertoires et fichiers.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_JMO · Answer

Bonjour à tous,


Bonjour barada,


L'exemple ci-dessous semble, en partie, correspondre à ta demande !!!


Option Explicit
Const PathSave = "C:\TEMP\Sauve"
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject") 

CheckFileSave inputBox("Fichier à restaurer",,"MyFile.txt")

Set objFso = Nothing 
'#####################################################
Function CheckFileSave(ArgFile)
   If  objFso.FileExists(PathSave & "" & ArgFile) Then 
       Dim objRootFolder
       Set objRootFolder = objFso.GetFolder(Left(PathSave, InStr(PathSave, "")))
       SearchFile objRootFolder, ArgFile 
       Set objRootFolder = Nothing
   Else
       MsgBox "Fichier non sauvegardé"
   End If
End Function
'#####################################################
Sub SearchFile(ArgFolder, ArgFile) 
On Error Resume Next 
   Dim objFile, objFolder
   For Each objFile In ArgFolder.Files 
       If objFile.Name = ArgFile And objFile.ParentFolder <> PathSave Then
          objFso.CopyFile PathSave & "" & ArgFile, objFile.Path, True
          msgbox "Fichier restauré: " & objFile.Path
          Exit Sub
       End If
   Next 
   For Each objFolder In ArgFolder.SubFolders 
       SearchFile objFolder, ArgFile 
   Next
End Sub


jean-marc

cs_barada · Answer

Bonsoir Jean Marc et le forum 
Ayant été absent un moment, je vais tester ton script et te donnera le résultat.
Merci d' avoir répondu à mon post 
Barada

cs_barada · Answer

Bonjour jean marc et le forum 
J' ai testé le code mais il ne me donne pas satisfaction alors j' ai éssayé de faire une fonction mais cela ne marche pas, j' ai tout modifié voila le résume 
Sur un formulaire 

j' ai deux zones independates txturl1 et txturl2, et deux boutons parcourir le txtutrl1 me donnele le chemin et le nom de la base 
le txturl2 me donne juste le lecteur et le répertoire (exemple d:	oto\
J' essaye de faire une fonction qui dira 
de récuperer le nom de la base  qui se trouve dans txturl1 et de le copier dans le chemin donne par txturl2
Barada

cs_JMO · Answer

Bonjour barada,


TxtUrl1 = "F:\SCRIPTS\Fichiers\Exemple.txt"
TxtUrl2 = "F:\SCRIPTS\TEST"

TxtUrl2 = TxtUrl2 & Mid(TxtUrl1, InstrRev(TxtUrl1, "") + 1)
MsgBox TxtUrl2



jean-marc

cs_barada · Answer

Bonjour Jean Marc et le forum 

Jean Marc Merci de m' avoir répondu, car avec ta deuxieme correction j' ai pu refaire completement mon code et mon test est OK 
Merci à toi et bonne continuation 

Barada

Copie fichier

6 réponses

Votre réponse

Discussions similaires