Un truc avec fso. (folder & file)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 304 fois - Téléchargée 41 fois


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

Ajouter un commentaire Commentaires
Messages postés
7
Date d'inscription
jeudi 27 décembre 2001
Statut
Membre
Dernière intervention
24 juin 2002

Merci. Je vais essayer ca, mais je suis un peu over booker en ce moment.
Ph.D
Messages postés
26
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
30 décembre 2003

Pour sélectionner des fichiers, t'as besoin de dirlistbox et filelistbox.
Tu ajoutes le contrôle "microsoft windows common dialogs" (comdlg32.ocx), puis tu crées un controle "comdlg" dans ta feuille (ce truc est invisible).
Pour l'appeler, tu fais dans to code:
comdlg.filter="*.*|Tous les fichiers|*.exe|Exécutables"
(tu alternes masque et description par des | autant de fois que tu veux)
comdlg.action=1
(appeler le dlg "ouvrir")
Pour récupérer le nom complet du fichier, avec chemin:
FileName=comdlg.filename
Pour récupérer juste le nom du fichier:
Nom=comdlg.filetitle

Avec les boites c chiant, ya plein d'events (relativement) à définir, et c'est bcp moins souple à utiliser.

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.