Ik heb een programma die een map moet backuppen (copieren naar een andere locatie). Maar in de deze map staan directories met files. Het is me wel gelukt om bestanden te kopieren. Maar nu wil ik dus dat hij de complete structuur ook zo over neemt. Ik heb nu dit, maar ik krijg de directory naam niet naam voren alleen het hele pad dus: d:\_documenten\mapje1 ipv mapje1
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Dim mijnDocumentenDir As String = "D:\_documenten\"
Dim file, fileName As String
Dim dir As String
'Each directory
For Each dir In Directory.GetDirectories(mijnDocumentenDir)
'Dir zou dan mapje 1 moet zijn ipv d:\_documenten\mapje1
'Directory.CreateDirectory(backupPath + "\mijn documenten\ + dir")
'Each file
'Get all the files from the outlook directory
'For Each file In Directory.GetFiles(dir, "*")
' 'Get the filename without the directory.
' fileName = Path.GetFileName(file)
' 'Start copying the files to backupPath\outlook
' FileCopy(mijnDocumentenDir + fileName, backupPath + "\mijn documenten\" + fileName)
'Next
Next |