Hallo

Welkom, Gast. Alsjeblieft inloggen of registreren.

Recent

218 gasten, 0 leden

Welkom, Gast. Alsjeblieft inloggen of registreren.

28 maart 2024, 20:06:33

Login met gebruikersnaam, wachtwoord en sessielengte

Nieuws

Welkom op het vernieuwde NL Computer Forum!

Auteur Topic: Error "Unknown"  (gelezen 24318 keer)

0 leden en 1 gast bekijken dit topic.

Offline jvdpeet †
  • Senior lid
  • ****
  • Berichten: 365
  • Geslacht: Man
Re: Error "Unknown"
« Reactie #30 Gepost op: 10 maart 2010, 01:09:03 »
Hoi Peter,
Natuurlijk mag je die zien: hier is de code tussen << >>
<<  Public Function ext(pad As String) As String
Select Case Right(pad, 1)
Case "\"
    ext = pad
Case Else
    ext = pad & Chr(92)
End Select
End Function >>

Offline Peter

  • Sysop
  • *****
  • Berichten: 5.683
  • Geslacht: Man
Re: Error "Unknown"
« Reactie #31 Gepost op: 10 maart 2010, 20:33:41 »
Hoi Jan,

OK, dat kan de fout ook niet verklaren.

PS, Waarom heb je voor Select Case... gekozen? M.i. is If ... Then ... Else ... beter leesbaar.


groeten, Peter

Offline jvdpeet †
  • Senior lid
  • ****
  • Berichten: 365
  • Geslacht: Man
Re: Error "Unknown"
« Reactie #32 Gepost op: 11 maart 2010, 01:06:02 »
Hoi Peter,
Inderdaad is If . . .  Then . . .  Else beter leesbaar, maar ik heb deze code indertijd van jou overgenomen. Dit was toen het bij mij scheef liep met of zonder / in het applicatiepad en je mij voordeed hoe ik problemen daarmee kon voorkomen.

Offline Peter

  • Sysop
  • *****
  • Berichten: 5.683
  • Geslacht: Man
Re: Error "Unknown"
« Reactie #33 Gepost op: 11 maart 2010, 20:53:42 »
Citaat
Dit was toen het bij mij scheef liep met of zonder / in het applicatiepad en je mij voordeed hoe ik problemen daarmee kon voorkomen.
Oh, dat is al ff geleden dan.


Peter