* Volg ons


* Wie is Online

  • Punt gasten: 41
  • Punt verborgen: 0
  • Punt leden: 0

Er zijn geen bezoekers online
  • Punt Online vandaag: 3

* Actuele onderwerpen

Bestanden (schijf) delen door Ruud_coco
[Vandaag om 07:28:40]


Venster die steeds te voorschijn komt door Peter
[ 2 december 2019, 22:01:51]


Visual Basic vertoont plotseling problemen. door Peter
[30 november 2019, 22:32:12]


Photoprogramma door Peter
[21 november 2019, 13:03:29]


doorsturen email door ronkrabben
[20 november 2019, 10:30:38]


zoekmachines in Firefox door Peter
[13 november 2019, 19:00:07]


Google Chrome door Peter
[26 oktober 2019, 11:59:56]


Een livestream kijken en chatten in youtube door Janny
[20 oktober 2019, 00:34:20]


Gebruiker verwijderen door Peter
[19 oktober 2019, 09:39:01]


windows10 update door Peter
[16 oktober 2019, 22:27:38]


Laptop start niet meer op door Ruud_coco
[16 oktober 2019, 01:59:21]


kan geen andere locatie kiezen met installatie van programma/patch door Peter
[21 september 2019, 23:13:45]


tegels startmenu door Peter
[20 september 2019, 18:50:49]


vista updaten door Peter
[17 september 2019, 20:38:55]


Hallo allemaal door Peter
[11 september 2019, 18:51:05]


nieuwe laptop is steeds traag door Peter
[10 september 2019, 21:07:20]


koffie over laptop Dell door Peter
[ 6 september 2019, 23:58:23]


* 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 11776 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
7399 Gelezen
Laatste bericht 11 november 2009, 20:17:21
door NLCOMP
0 Reacties
6463 Gelezen
Laatste bericht 14 november 2009, 14:25:27
door NLCOMP
0 Reacties
7073 Gelezen
Laatste bericht 14 november 2009, 16:12:15
door NLCOMP
2 Reacties
10617 Gelezen
Laatste bericht 9 maart 2011, 14:33:19
door Henk van Asselt
5 Reacties
9807 Gelezen
Laatste bericht 20 juli 2010, 21:31:57
door Ronald
3 Reacties
9568 Gelezen
Laatste bericht 9 juli 2010, 20:20:39
door Ronald
6 Reacties
8426 Gelezen
Laatste bericht 3 oktober 2010, 00:27:17
door Nilscollection
5 Reacties
7892 Gelezen
Laatste bericht 13 oktober 2010, 19:24:43
door Peter
1 Reacties
6843 Gelezen
Laatste bericht 1 januari 2011, 15:07:29
door Peter
16 Reacties
10471 Gelezen
Laatste bericht 15 juli 2016, 00:10:13
door Peter