| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Visual Basics programmation >> Content
    Comment copier les dossiers à l'aide VBA
    Visual Basic pour Applications, ou VBA est un langage de script intégré dans la plupart des applications Microsoft Office. Avec lui, vous pouvez créer des macros et des fonctions pour automatiser différentes tâches. VBA est livré avec un large éventail d'objets et de fonctions qui peuvent vous aider à travailler avec vos documents plus rapidement et plus efficacement. Avec sa classe FileSystemObject , vous pouvez également manipuler les fichiers et dossiers n'importe où sur votre ordinateur à partir de n'importe quelle application Office. En créant une seule macro VBA et en assignant un raccourci clavier à elle, vous pouvez plus facilement copier, d'organiser et de créer des sauvegardes de vos dossiers . Instructions
    1

    démarrer n'importe quelle application Microsoft Office , tels que Word ou Excel. Appuyez sur "Ctrl" et "N" pour créer un nouveau document. Pour utiliser un document existant à la place , appuyez sur " Ctrl" et " O ", sélectionnez votre fichier, puis cliquez sur «Ouvrir».
    2

    presse "," Alt "et" F11 "pour ouvrir la Visual Basic Editor , ou VBE . Dans le panneau " Explorateur de projet " , sélectionnez le projet VBA qui contient le nom de fichier de votre document.
    3

    Cliquez sur "Insérer ", puis sélectionnez "Module ". Cela ajoute " Module1 " à la liste des modules dans le panneau " Explorateur de projet " . Double- cliquez sur " Module1 ", puis entrez le code suivant dans l'éditeur .

    CopyFolders sub () Photos

    foldernames = array (" C: \\ Folder1 ", " C: \\ Dossier2 " )

    dest = "C: \\ destination "

    For Each s En foldernames

    Appel CopyF (s, dest & "\\" )

    suivante s

    End Sub
    4

    Remplacer " C: \\ Folder1 » et "C: \\ Dossier2 ." . avec les dossiers que vous souhaitez copier pour ajouter un dossier à la liste , tapez une virgule , puis insérer le chemin complet vers le dossier avant la parenthèse fermante de la fonction " Array " Assurez-vous d'inclure des lettres de lecteur et les chemins d'enfermer entre guillemets
    5

    Remplacer. ». C: \\ destination" avec le chemin complet vers le répertoire où vous souhaitez envoyer une copie de vos dossiers Soyez sûr d'inclure la lettre de lecteur et de l'entourer de guillemets.
    6

    Cliquez sur "Insérer ", puis sélectionner "Module ". Cela ajoute " Module2 " à la liste des modules dans le « Project Explorer " panneau. Double- cliquez sur" Module2 ", puis entrez le code suivant dans l'éditeur.

    public Sub CopyF ( ByVal sfol As String , ByVal DFOL As String )

    c = Len ( sfol ) - Len ( Replace ( sfol , "\\" , "", 1) )

    fName = Mid ( sfol , InStr (1, Application.Substitute ( sfol , "\\" , "*" , c ) "*") + 1)

    dest = DFOL & fName

    Set fso = CreateObject (" Scripting.FileSystemObject " )

    If Not fso.FolderExists ( dest) Puis

    fso.CopyFolder sfol , DFOL

    Else

    Ures = MsgBox ( dest & " existe déjà. Overwrite ? " , vbYesNo + vbQuestion )
    < p> Si Ures = vbYes Puis

    fso.CopyFolder sfol , DFOL

    Else

    GoTo EndScript

    End If End If

    Photos

    EndScript :

    Set fso = Nothing End Sub


    7

    Appuyez sur " F12 ". Entrez le nom de votre fichier préféré dans le "File son nom " , puis cliquez sur le menu déroulant à côté de " Save as type . "Select" classeur Excel Macro - Enabled " ( si vous utilisez Excel ) ou" Word Document Macro - Enabled " (si vous utilisez Word ) . Cliquez sur "Enregistrer".
    8

    Appuyez sur " Alt" et " Q " pour fermer le VBE .
    9

    Appuyez sur " Alt" et "F8" à ouvrir la fenêtre "Macros " . Sélectionnez " CopyFolders " dans la liste , puis cliquez sur "Exécuter".

    Previous :

    next :
      articles connexes
    ·Comment calculer le temps Méthode en Visual Basic 
    ·Comment faire pour exécuter un sous-programme Visual B…
    ·Comment faire pour activer un point de vue particulier …
    ·Comment faire Logiciel de sécurité en VB.Net 
    ·Comment faire pour créer une DLL ActiveX dans Visual B…
    ·Comment faire pour convertir Integer à Date Valeur Vis…
    ·Code VBA Structure 
    ·Comment écrire des scripts avec le Bloc-notes 
    ·Comment puis-je utiliser une boîte combo en Visual Bas…
    ·Comment faire de la touche Enter également une touche …
      articles en vedette
    ·Comment faire pour importer MySQL à HSQLDB 
    ·Comment mettre la barre de défilement en Java 
    ·Comment calculer les lignes de java.awt.Point 
    ·Android SDK View Editor 
    ·Comment suspendre un sous-programme jusqu'à ce qu'un b…
    ·Comment faire un jeu de base en C + + 
    ·Comment afficher un code Lisp qui est protégée en éc…
    ·Comment envoyer texte à l'invite de commande à partir…
    ·Comment lire email en utilisant VBA 
    ·Comment démonter Jeux flash 
    Copyright © Connaissances Informatiques http://fr.wingwit.com