Getal uit een filename halen

Status
Niet open voor verdere reacties.
H

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Hi,
ik wil graag een getal uit een windows filename halen en die in een msgbox plaatsen.
Het gaat hier om het getal 09 of 10.
alvast bedankt rob


Code: 
NL34INGB0123456789_01-09-2017_30-09-2017.csv
NL34INGB0123456789_01-10-2017_31-10-2017.csv
 
09 is geen getal maar tekst. Wat verder de vraag is? Ik heb geen idee.
 
De wens is inderdaad totaal onduidelijk:
Code: 
MsgBox Mid("NL34INGB0123456789_01-10-2017_31-10-2017.csv", 23, 2)
 
ok hoe kan ik via vba, tekst in dit geval een 9 of een 10 uit een windows filename in een msgbox krijgen?

Ter verduidelijking dit staat niet in excel maar nog in het windows pad het is de bedoeling dat dit getal / tekst gebruikt wordt om te checken of de maand al een eigen tab heeft , ik heb geen idee hoe dat heet maar als je mijn computer doet zie je een lijst met filenamen, die bedoel ik.
 
Je hebt dus een folder met *.csv bestanden waarvan je het maandnummer uit de naam in een MgsBox wilt tonen.
 
yep dat is precies wat ik wil, sorry ik ben niet zo goed in uitleggen.
 
Kijk eens of dit is wat je bedoelt:
Code: 
Sub ToonMaanden()
    Folder = "C:\Diversen"
    
    csv = Dir(Folder & "\*.csv")
    While csv <> ""
        gtl = Mid(csv, 23, 2)
        If InStr(1, msg, gtl) = 0 Then
            msg = msg & gtl & vbCrLf
        End If
        csv = Dir()
    Wend
    MsgBox (msg)
End Sub
Wel even de waarde van Folder aanpassen.
 
Hi Edmoore, hij doet het perfect. Ik heb nog geen ervaring met de while wend, dat ziet er wel interessant uit.
Harstikke bedankt.
 
Graag gedaan :)
 
While .. wend is ca. 60 jaar geleden vervangen door Do ...Loop ;)
Dit lijkt me voldoende

Code: 
Sub M_snb()
   msgbox dir("C:\Diversen\*-09-*.csv")
End Sub
 
Maar werkt nog steeds perfect. Je voorbeeld laat alleen de bestanden met 09 zien en niet de andere maanden.
 
Snap ik. Maar om een volgende vraag te voorkomen ben ik er maar vanuit gegaan dat het om alle maanden gaat ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan