Visual Basic for Applications eller VBA , er et scriptsprog indbygget i de fleste Microsoft Office-programmer. Med det kan du oprette makroer og funktioner til at automatisere forskellige opgaver. VBA kommer med en bred vifte af objekter og funktioner , der kan hjælpe dig med at arbejde med dine dokumenter hurtigere og mere effektivt . Med sin FileSystemObject klasse, kan du også manipulere filer og mapper overalt på din computer indefra et Office-program . Ved at oprette et enkelt VBA-makro og tildele et tastatur kommando til det, kan du nemmere kopiere, organisere og oprette sikkerhedskopier af dine mapper. Instruktioner
1

Start enhver Microsoft Office-program , som Word eller Excel . Tryk på " Ctrl" og "N " for at oprette et nyt dokument. Hvis du vil bruge et eksisterende dokument i stedet , tryk på " Ctrl " og " O ", vælge din fil , og klik derefter på "Åbn".
2

Tryk på "" Alt " og" F11 "for at åbne Visual Basic Editor , eller VBE . på " Project Explorer " panel , skal du vælge VBA-projektet , der indeholder filnavnet på dit dokument .
3

Klik på "Indsæt ", og vælg derefter " Modul ". Dette tilføjer " Module1 " til listen over moduler i " Project Explorer " panel . Dobbeltklik på " Module1 ", og indtast derefter følgende kode i editoren.

sub CopyFolders () Salg

folderNames = Array ( "C: \\ Mappe1 ", " C: \\ Folder2 " )

dest = " C: \\ destination "

For Each s In folderNames < br >

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

Næste s

End Sub
4

Erstat " C: \\ Mappe1 ", og "C: \\ Folder2 " . . med de mapper , som du gerne vil kopiere vil tilføje endnu en mappe til listen , skal du skrive et komma og derefter indsætte den fulde sti til den mappe før den afsluttende parentes af " Array "-funktionen Vær sikker at omfatte drevbogstaver og vedlægge stierne i anførselstegn
5.

Erstat. . "C: \\ destination " med den fuldstændige sti til den mappe, hvor du gerne vil sende kopier af dine mapper Vær sikker at omfatte drevbogstavet og sætte det i anførselstegn.
6

Klik på "Indsæt " og derefter vælge " Module ". Dette tilføjer " Module2 " til listen over moduler i " Project Explorer "panel . Dobbeltklik på " Module2 ", og indtast derefter følgende kode i editoren.

Public Sub CopyF ( ByVal sFol As String , ByVal dFol As String )

c = Len ( sFol ) - Len (Erstat ( sFol , "\\ ", " ", 1 ) )

fname = Mid ( sFol , InStr (1, Application.Substitute ( sFol , "\\ " , "*" , c ) , "*" ) + 1)

dest = dFol & fname

Set FSO = CreateObject ( " Scripting.FileSystemObject " )
p Hvis ikke fso.FolderExists ( dest ) Så

fso.CopyFolder sFol , dFol

Else

Ures = MsgBox ( dest & "findes allerede. Overskriv ? " vbYesNo + vbQuestion )
< p> Hvis Ures = vbYes Så

fso.CopyFolder sFol , dFol

Else

GoTo EndScript

End If

End If

EndScript : Hej

Set FSO = Nothing

End Sub
7

Tryk på " F12 ". Indtast dit foretrukne filnavn i " File navnet "-boksen, og klik derefter på drop- down menuen ved siden af" Gem som type. "Vælg" Excel Macro -Enabled Workbook "(hvis du bruger Excel ) eller" Word Macro -Enabled Document "(hvis du bruger Word ) . Klik på " Gem".
8

Tryk på " Alt" og "Q " for at lukke VBE .
9

Tryk på " Alt" og "F8 " til åbne " makroer " vinduet. Vælg " CopyFolders " fra listen, og klik derefter på " Run".