* Volg ons


* Wie is Online

  • Punt gasten: 33
  • Punt verborgen: 0
  • Punt leden: 0

Er zijn geen bezoekers online
  • Punt Online vandaag: 5

* Actuele onderwerpen

Brother DCP-145C kopiëert alleen maar door RuudDeWit
[ 1 juli 2020, 15:45:27]


snelkoppeling door Peter
[ 1 juli 2020, 09:01:32]


scanresultaten door ronkrabben
[25 juni 2020, 21:51:27]


fouten op harde schijf door Peter
[21 juni 2020, 10:16:37]


belgeschiedenis terughalen door Peter
[20 juni 2020, 23:28:03]


beschadigde usb port? door iemand85
[18 juni 2020, 17:24:58]


Foutmelding Windows 10 installatie door RuudDeWit
[17 juni 2020, 16:44:10]


Webcam probleem door MauriceO
[16 juni 2020, 13:37:00]


1e tabblad (processen) in taakbeheer blijft (meestal) leeg door RuudDeWit
[ 5 juni 2020, 15:55:10]


melding geen internet door Peter
[29 mei 2020, 18:38:45]


Afsluiten W10 door Peter
[18 mei 2020, 08:32:56]


website www.vragenderveen.nl niet te bereiken door Ronald
[15 mei 2020, 22:37:52]


Hartenjagen op Windows 10 door RuudDeWit
[13 mei 2020, 15:00:36]


webbrouwser door ronkrabben
[11 mei 2020, 13:41:59]


upgraden laptop door iemand85
[ 5 mei 2020, 10:56:43]


Foto lichter maken door Peter
[ 3 mei 2020, 10:42:31]


Paint Shop Pro door Janny
[29 april 2020, 18:59:05]


DVD-speler door Peter
[27 april 2020, 17:04:27]


* Chat

Vraag maar raak!
Stel je vragen over computers en internet en krijg direct antwoord! Iedere maandagavond 21:00 - 22:00 uur in de chatroom.


A A A A Auteur Topic: Error "Unknown"  (gelezen 14313 keer)

0 leden en 1 gast bekijken dit topic.

Offline jvdpeetTopic starter

  • Senior lid
  • ****
  • Berichten: 365
  • Geslacht: Man
  • Laatst actief:
    29 december 2018, 18:31:06

  • Activiteitmeter
    0%
Error "Unknown"
« Gepost op: 25 februari 2010, 01:23:04 »
Ik gebruik het volgende stukje code in Form_Load van het hoofdformulier:
'Verwijderen oude logbestanden.
MyPath = frmInvestor.ext(App.Path) & "LOG\"
MyFile = Dir(MyPath & "*.*")
Dim filename As String
filename = MyPath & MyFile
Do While MyFile <> ""
    Aanroep2 = "ControleKoersBestanden"
    If Left$(MyFile, 8) <> BerekendeDatum And Left$(Right$(MyFile, 7), 3) = "LOG" Then
        If MyFile <> "master.fqr" Then
            Kill filename
        End If
    Else
        Aanroep2 = ""
        CloseFile (filename)
    End If
Loop
Wanneer dit stukje code wordt uitgevoerd, krijg ik de fout "Unknown". Wat is er fout aan deze code?
 

Beste bezoeker, je bent op dit moment niet ingelogd. Daarom zijn de 33 antwoorden op dit bericht voor jou verborgen. Klik hier om in te loggen of klik hier om gratis en eenvoudig een account te registreren!
 

Gerelateerde onderwerpen

  Onderwerp / Gestart door Reacties Laatste bericht
0 Reacties
8880 Gelezen
Laatste bericht 11 november 2009, 20:17:21
door NLCOMP
0 Reacties
8008 Gelezen
Laatste bericht 14 november 2009, 14:25:27
door NLCOMP
0 Reacties
8382 Gelezen
Laatste bericht 14 november 2009, 16:12:15
door NLCOMP
2 Reacties
11647 Gelezen
Laatste bericht 9 maart 2011, 14:33:19
door Henk van Asselt
5 Reacties
10755 Gelezen
Laatste bericht 20 juli 2010, 21:31:57
door Ronald
3 Reacties
11190 Gelezen
Laatste bericht 9 juli 2010, 20:20:39
door Ronald
6 Reacties
9314 Gelezen
Laatste bericht 3 oktober 2010, 00:27:17
door Nilscollection
5 Reacties
9030 Gelezen
Laatste bericht 13 oktober 2010, 19:24:43
door Peter
1 Reacties
8326 Gelezen
Laatste bericht 1 januari 2011, 15:07:29
door Peter
16 Reacties
14362 Gelezen
Laatste bericht 15 juli 2016, 00:10:13
door Peter