Van | : | Jan101477 | Datum | : | 10-12-2007 |
Aan | : | Peter | MsgID | : | 3663.1 |
Onderwerp | : | MyFile = Dir | Forum | : | ws-nlcomputer |
MyPath = "F:\AANDLO~1\"
' Bepaal het bestand
MyFile = Dir(MyPath & "*.*")
Do While MyFile ""
filename = MyPath & MyFile
OpenFileKoersen (filename)
If NaamFonds(1) "AEX " And NaamFonds(1) "AMS-D " And NaamFonds(1) "AMS-A " And NaamFonds(1) "AAMX " And NaamFonds(1) "AMS-NH " And NaamFonds(1) "AMS-NL " And NaamFonds(1) "1DJ-30 " And NaamFonds(1) "1SP-500 " And NaamFonds(1) "02EURUSD" And NaamFonds(1) "GELYK " And NaamFonds(1) "OI " And NaamFonds(1) "CPRA " And NaamFonds(1) "CPR " And NaamFonds(1) "02TBY30 " And NaamFonds(1) "81NKDOW " And NaamFonds(1) "1VIX " And NaamFonds(1) "1QQQ " Then
FondsNaam = NaamFonds(1)
Call BijwerkenKoersVandaag(FondsNaam)
Else
GoTo 25
End If
' MyFile = Dir
'25 Loop ' Indien deze en de vorige regel erin en de laatste twee eruit dan wel MyFile goed, zonder dat niet
AantalFondsen = 1
For VolgNummer = 0 To 34
Call KeuzeSysteem(VolgNummer, AantalPerioden, AantalPeriodenMA1, AantalPeriodenMA2, AantalPeriodenMA3, WeekFlag, AantalWeken)
Next VolgNummer
GewensteDatum = "gisteren"
Call DatumBepaling(GewensteDatum, BerekendeDatum)
DatumGisteren = BerekendeDatum
Call BijwerkenDagTransacties(AantalOpgehaald, DagTransactieMatrix(), k, DatumGisteren)
FondsenTeller = FondsenTeller + 1
MyFile = Dir
filename = MyPath & MyFile
25 Loop
Als ik de regels 23 en 24 van de code van tekst haal en de laatste 2 regels van de code op tekst zet (waardoor de rest van de code dus niet wordt uitgevoerd) bevat MyFile = Dir steeds het volgende bestand.Van | : | Peter | Datum | : | 11-12-2007 |
Aan | : | Jan101477 | MsgID | : | 3663.2 |
Onderwerp | : | MyFile = Dir | Forum | : | ws-nlcomputer |
Van | : | Jan101477 | Datum | : | 11-12-2007 |
Aan | : | Peter | MsgID | : | 3663.3 |
Onderwerp | : | MyFile = Dir | Forum | : | ws-nlcomputer |
Bijlagen :
Bericht 4 van 5 NL Computer Forum ~ SQL & Programmeren
Het probleem is opgelost. Ik heb de lus met Volgnummer een voor een op tekst gezet en gekeken of de fout dan weg bleef. Bijna bij het laatste volgnummer had ik beet. In de betreffende routine zat geen Dir maar wel het ophalen van een filename en dat was de oorzaak. Wederom hartelijk dank voor je assistentie. Groetjes, Jan |
Van | : | Peter | Datum | : | 11-12-2007 |
Aan | : | Jan101477 | MsgID | : | 3663.5 |
Onderwerp | : | MyFile = Dir | Forum | : | ws-nlcomputer |