Springen naar inhoud


- - - - -

Fso.fileexists(Backup)


  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 oscar.thys

oscar.thys

    Senior Developer

  • Leden
  • PipPipPip
  • 103 berichten
    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

Bijgevoegde Bestanden



#2 oscar.thys

oscar.thys

    Senior Developer

  • Leden
  • PipPipPip
  • 103 berichten
    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:
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

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)