Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 482 fois - Téléchargée 42 fois
' 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
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.