Else
fso.CopyFile f1, backfolder, True
Hier krijg ik de foutmelding:Regelnr
:Teken 1
:Fout Toegang geweigerd
:Code 800A0046
:Runtimefout
Geplaatst op 21 februari 2015 - 16:21
Geplaatst op 22 februari 2015 - 10:29
If fso.fileExists(backupfile) Then Set bf = fso.GetFile(backupfile) If f1.DateLastModified <> bf.DateLastModified Then fso.CopyFile f1, backfolder, True count = count + 1 Redim Preserve arrResults(count) arrResults(count)= f1 End If 'GEEN ENKELE FOUTMELDING TOT HIER,MAAR NU KOMT HET!!! Else'bestaat nog niet fso.CopyFile f1, backfolder, True 'juist hetzelfde als de 7° regel hier boven!!!!!!!!!!GEEFT MIJ DE FOUTMELDING VAN "teken 1 is ongeldig"
0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers