Un truc avec fso. (folder & file)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 482 fois - Téléchargée 42 fois
Contenu du snippet
Tout est dans le code, mais ce n'est pas grand chose.
Je débute (depuis un bon moment, mais j'ai peu de temps), soyez indulgents !
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 !
29 mars 2002 à 21:08
Ph.D
29 mars 2002 à 12:58
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.