aide sur fonction set fso

Re : aide sur fonction set fso

Bonjour,

A tester:

aide sur fonction set fso // resolu

Voila ca marche; Merci beaucoup pour ton aide.



Sub test()

Dim fso As Object, origine As String
Dim destination As String, reponse As Integer
Dim sortie As Byte, message As String
'On Error GoTo camarchepas

debut:


origine = "c:\toto\"
destination = "c:\titi\"


Monfichier = Dir(origine & "*.*")
'si "Monfichier" n'est pas vide et "Monfichier" n'est pas dans le répertoire de déstination
If Monfichier <> "" And Monfichier <> Dir(destination & Monfichier) Then
Set fso = CreateObject("scripting.filesystemobject")
fso.MoveFile origine & Monfichier, destination & Monfichier
Else

If Monfichier = "" Then
MsgBox ("répertoire vide")
Exit Sub

End If



message = "Le fichier " & destination & Monfichier & " existe déjà" & _
vbNewLine & "Désirez vous le supprimer?"
reponse = MsgBox(message, vbQuestion + vbOKCancel, "Erreur")
Select Case reponse
Case vbOK


Select Case Err
Case 53
message = "Le fichier " & origine & " n'existe pas" & _
vbNewLine & "Fin du programme"
MsgBox message
Case Else
End Select

Kill destination & Monfichier


Case vbCancel
Exit Sub

Set fso = CreateObject("scripting.filesystemobject")

fso.MoveFile origine & Monfichier, destination & Monfichier
Case Else
sortie = 1
End Select


End If


GoTo debut


End Sub