UN TRUC AVEC FSO. (FOLDER & FILE)

' Ce bout de code utilise 5 TextBox et 2 Boutons,
' il copie n'importe quel fichier du répertoire d'origine
' dans un dossier <date du jour> sur le serveur d'archivage.
' j'ai fais ca pour tester le FSO, ce n'est pas génial,
' mais ca marche (par contre, ca n'aime pas les
' caractères Joker)
' quand j'aurais le tps, je remplacerais le TextBox1
' par une sélection directe (DirBox et FileBox) mais
' je ne sais pas encore faire. Si vous avez des idées
' pour améliorer la chose,
' mon email est ouvert à vos suggestions.

Dim MyFile, MyDir, MyPath, SourceFile, DestinationFile
Dim fso
Private Sub Form_Load()
Dim NomFich As String
MyDir = Format$(Now, "YYYYmmdd")
MyPath = "\\File_server\Arch$\" & MyDir
Text2.Text = MyDir 'Contrôle visuel du Nom du Dossier
End Sub
Private Sub Text1_Change()
MyFile = Text1.Text
Text3.Text = MyFile 'Contrôle visuel du Nom du Fichier
Text4.Text = "C:\VB_Temp\" & MyFile 'Contrôle visuel du Chemin d'Origine
Text5.Text = MyPath & "\" & MyFile 'Contrôle visuel du Chemin de Destination
End Sub
Private Sub Command1_Click()
On Error GoTo Err_Msg
SourceFile = "C:\VB_Temp\" & MyFile
DestinationFile = MyPath & "\" & MyFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(MyPath) Then GoTo Copier Else
    fso.CreateFolder (MyPath)
Copier:
    fso.CopyFile SourceFile, DestinationFile, True
GoTo Fin
Err_Msg:
    Msg = "Une erreur" & Str(Err.Number) & " a été renvoyée par " _
    & Err.Source & vbCrLf & "Message d'erreur : " & Err.Description _
    & vbCrLf & "Ressaisissez le nom du fichier !"
    MsgBox Msg, , "Erreur"
' Je sais, j'aurais pu creuser un peu plus
Fin:
End Sub
Private Sub Command2_Click()
End
End Sub