Else
fso.CopyFile f1, backfolder, True
Hier krijg ik de foutmelding:Regelnr
:Teken 1
:Fout Toegang geweigerd
:Code 800A0046
:Runtimefout
Bijgevoegde Bestanden
-
Nieuw - Microsoft Word-document.DOCX 13,11K
5 downloads
1
Fso.fileexists(Backup)
Door
oscar.thys
, 21 feb 2015 16:21
Er zijn 1 reacties in dit onderwerp
#1
oscar.thys
-
- Leden
-
- 103 berichten
Senior Developer
- Laatst bezocht 13 mei 2015 10:18
Geplaatst op 21 februari 2015 - 16:21
Het probleem doet zich voor bij:
Else
fso.CopyFile f1, backfolder, True
Hier krijg ik de foutmelding:Regelnr
:Teken 1
:Fout Toegang geweigerd
:Code 800A0046
:Runtimefout
Else
fso.CopyFile f1, backfolder, True
Hier krijg ik de foutmelding:Regelnr
:Teken 1
:Fout Toegang geweigerd
:Code 800A0046
:Runtimefout
#2
oscar.thys
-
- Leden
-
- 103 berichten
Senior Developer
- Laatst bezocht 13 mei 2015 10:18
Geplaatst op 22 februari 2015 - 10:29
het is precies niet zo duidelijk,zal proberen om het te verduidelijken.
Visual Basic Code:
Visual Basic Code:
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 gebruiker(s) lezen dit onderwerp
0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers
