paul.jacobs
Gebruiker
- Lid geworden
- 25 feb 2004
- Berichten
- 424
Ik heb de volgende uitdaging.
Ik wil alle bestanden uit een map kopiëren naar een andere map.
Ik heb een voorbeeld gemaakt zodat jullie hopelijk snappen wat ik bedoel.
Stap 1: alle regels van de Query ”data Query” moet worden gebruikt.
Stap 2: eerst moet er een map aangemaakt worden waar de bestanden naar toe moet.
Dit heb ik nu maar weet niet of dit de beste manier is:
If Dir("G:\Projecten\data" & [project], vbDirectory) = "" Then MkDir "G:\Projecten\data" & [project]
If Dir("G:\Projecten\data" & [project] & "\stap", vbDirectory) = "" Then MkDir "G:\Projecten\data" & [project] & "\stap"
If Dir("G:\Projecten\data" & [project] & "\stap" & [Id], vbDirectory) = "" Then MkDir "G:\Projecten\data" & [project] & "\stap" & [Id]
Stap 3: als er een of meer bestanden staan in de link in [map] dan moeten deze gekopieerd worden in de map die er net is aangemaakt.
Hopelijk kan iemand me helpen.
Alvast bedankt
Ik wil alle bestanden uit een map kopiëren naar een andere map.
Ik heb een voorbeeld gemaakt zodat jullie hopelijk snappen wat ik bedoel.
Stap 1: alle regels van de Query ”data Query” moet worden gebruikt.
Stap 2: eerst moet er een map aangemaakt worden waar de bestanden naar toe moet.
Dit heb ik nu maar weet niet of dit de beste manier is:
If Dir("G:\Projecten\data" & [project], vbDirectory) = "" Then MkDir "G:\Projecten\data" & [project]
If Dir("G:\Projecten\data" & [project] & "\stap", vbDirectory) = "" Then MkDir "G:\Projecten\data" & [project] & "\stap"
If Dir("G:\Projecten\data" & [project] & "\stap" & [Id], vbDirectory) = "" Then MkDir "G:\Projecten\data" & [project] & "\stap" & [Id]
Stap 3: als er een of meer bestanden staan in de link in [map] dan moeten deze gekopieerd worden in de map die er net is aangemaakt.
Hopelijk kan iemand me helpen.
Alvast bedankt