[VBA] Speciale tekens in string ontdekken

[Masch]

Misschien een heel simpele vraag, maar is het mogelijk om na te gaan of een bepaalde string een van de tekens */\, etc bevat?
Ik gebruik namelijk de mkdir methode om een directory aan te maken, echter dit gaat fout op het moment dat de string zo'n teken bevat. Ik zit al in de foutafhandeling, dus een 'fout afvangen methode' kan ik niet uitvoeren. Hier een voorbeeld van de code;

code:

ElseIf Err.Number = 4172 Then 'Bestaat de directory niet en moet
die aangemaakt worden
MkDir "K:\Verkoop\Offertes\" & rst!naam & "\" 
Resume Next

De mkdir loopt dus fout met de code - 4172 - 'pad niet gevonden'

Iemand enig idee??

offtopic:
ligt bij jullie de search er ook uit??

[ Voor 11% gewijzigd door Masch op 17-06-2003 15:28 ]

[OZ-Gump]

De functie

Visual Basic:

InStr([start], string1, string2, [compare])

kan je helemaal helpen denk ik...

[ Voor 4% gewijzigd door OZ-Gump op 17-06-2003 15:31 ]

[curry684]

En als je nu geen rechten hebt om dat pad af te maken? Of als de schijf vol is? Wie houdt je tegen nog een on error bij te gooien

[OZ-Gump]

Ik vind het eerlijk gezegd zowiezo niet zo heel tof om een dir aan te maken als deze niet bestaat. En al helemaal niet terwijl het eerste gedeelte hard-coded is...

Is het niet verstandiger een melding te geven dat de dir niet gevonden kan worden en vervolgens te vragen of deze gemaakt mag worden? En het eerste stuk van het pad (K:\Verkoop\Offertes\) instelbaar maken via een settings-form o.i.d..

[ Voor 3% gewijzigd door OZ-Gump op 17-06-2003 15:36 ]

[Masch]

curry684 schreef op 17 June 2003 @ 15:33:
En als je nu geen rechten hebt om dat pad af te maken? Of als de schijf vol is? Wie houdt je tegen nog een on error bij te gooien

In principe ga ik maar een stap ver met foutafhandeling....

principekwestie.

Dan houdt ik het voor mezelf nog een beetje overzichterlijk

[Masch]

Dit stukje code zit in een offerte db en dan in een module waarbij een aangemaakt word bestand opgeslagen wordt. waarbij het juist heel belangrijk is dat dit op een en dezelfde locatie staat, omdat alleen vanuit de GUI van de db de offertes kunnen worden opgevraagd. Dit is btw iov onze directie, omdat documenten veelal overal verspreid op ons netwerk stonden. Snappen jullie het nog

[OZ-Gump]

Masch schreef op 17 juni 2003 @ 15:39:
< ... heel verhaal ... >

Dan nog zou ik zeggen: niemand houdt je tegen de locatie voor de bestanden instelbaar te maken via een instellingenscherm. Mocht het nou zo zijn dat je verwacht dat je collega's dan het pad elke keer geen lopen aanpassen, dan zou je een wachtwoord op het instellingenscherm kunnen zetten.

Grote voordeel van niet hard-coded is dat, als er een keer een probleem is en jij bent op vakantie, dat er altijd IEMAND is die het redelijk snel weer aan de gang kan krijgen. Mits je uiteraard iemand het wachtwoord geeft

Ontopic: doet InStr de truc voor je?

[Masch]

OZ-Gump schreef op 17 June 2003 @ 15:42:
[...]

verhaal

Ontopic: doet InStr de truc voor je?

Ik zal d'r eens over nadenken. Ik krijg van de baas natuurlijk ook nie alle tijd.

Ontopic: Ik was nog op zoek naar de CHR(??) waarde van het sterretje....

[OZ-Gump]

Da's 42

[Jerry]

Masch schreef op 17 June 2003 @ 15:45:
[...]


Ik zal d'r eens over nadenken. Ik krijg van de baas natuurlijk ook nie alle tijd.

Ontopic: Ik was nog op zoek naar de CHR(??) waarde van het sterretje....

Dmv een andere functie -> Asc("*") had je daar ook achter kunnen komen .

[HansMij]

Die foutmelding die je omschreven hebt, krijg je ook als de directory bestaat. Dat is ook omschreven in MSDN. Ik zou zeggen: |:(RTFM!!!8)7

[OZ-Gump]

@HansMij
Het roepen van RTFM is niet gewenst hier in P&W. Zeker niet als het om een redelijk normale vraag gaat. Er wordt door de TS niet gevraagd waar de fout voor staat of wat hij daaraan kan doen. Er wordt gevraagd naar hoe een bepaald karakter in een string te vinden is.

Ook al is de vraag er dan misschien niet eentje in de categorie breinbrekers, we hebben het allemaal een keer moeten leren.

Ik stel voor de volgende keer jezelf te beperken tot nuttige posts, en alleen met RTFM's te gooien als dat echt noodzakelijk is...

[ Voor 17% gewijzigd door OZ-Gump op 17-06-2003 16:02 ]

[Masch]

code:

ElseIf Err.Number = 4172 Then 'Bestaat de directory niet en 
moet die aangemaakt worden
    strtest = InStr(1, rst!naam, Chr(42))
    If strtest = True Then
    MkDir "K:\Verkoop\Offertes\" & rst!naam & "\"
        "
    Else
        'klantnaam wijzigen??
    End If
    Resume Next

Was de truk ik ken namelijk niet alle functies van vba..

En HansMij... niet zo boos worden..

[ Voor 35% gewijzigd door Masch op 17-06-2003 15:58 ]

[Masch]

/kill de qoute modus\

Shit!

Ik wou editten...

[ Voor 98% gewijzigd door Masch op 17-06-2003 15:57 ]