Un truc avec fso. (folder & file)


Commenter

Contenu du snippet

Tout est dans le code, mais ce n'est pas grand chose.

Source / Exemple : 


' 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

Conclusion :


Je débute (depuis un bon moment, mais j'ai peu de temps), soyez indulgents !

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.