Hallo,
Ik ben VBScript wat aan het leren. Ik stuit echter op een probleem.
Kan mij iemand helpen?
Hieronder staat het programmaatje:
De map aanmaken of controleren lukt.
Bij de copy krijg ik "toegang geweigerd" (voorlaatste lijn)
Thx
Ik ben VBScript wat aan het leren. Ik stuit echter op een probleem.
Kan mij iemand helpen?
Hieronder staat het programmaatje:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Dim objFSO, objMap, objBestand, strNieuweMap
strNieuweMap = "g:\testscripts"
'Eerste het FileSystemObject creeren
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Neem de map vanwaar we de bestanden willen kopieren g:\scrips
Set objMap = objFSO.GetFolder("g:\scripts")
'Controleer op het bestaan van de map
If objFSO.FolderExists (strNieuweMap) then
WScript.Echo "De doelmap " & strNieuweMap & " bestaat reeds" & vbCrLf
else
WScript.Echo "De doelmap " & strNieuweMap & " wordt aangemaakt" & vbCrLf
Set strNieuweMap = objFSO.CreateFolder(strNieuweMap)
End if
'Elk bestand wordt nu gekpoieerd
For Each objBestand In objMap.Files
Wscript.echo objBestand & VBCrLf
objBestand.Copy (strNieuweMap)
Next |
De map aanmaken of controleren lukt.
Bij de copy krijg ik "toegang geweigerd" (voorlaatste lijn)
Thx
[ Voor 4% gewijzigd door Verwijderd op 19-07-2008 10:00 ]