• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Pad en dan 1 niveau terug

Status
Niet open voor verdere reacties.
M

mulderwme

Gebruiker
Lid geworden
12 dec 2014
Berichten
210
Hallo allemaal,

Ik heb de volgende mappenstructuur: D:/Planner/Project

Ik gebruik ActiveWorkbook.path om het pad te vinden. Dat geeft dus D:/Planner/Project

Hoe kan ik 1 level omhoog, zodat ik D:/Planner krijg?

Alvast bedankt voor het meedenken?

Groet
Willem
 
bv.

Code: 
Sub VenA()
  c00 = "D:/Planner/Project" 'Thisworkbook.path
  a = Split(c00, "/")
  c00 = Replace(c00, a(UBound(a)), "")
End Sub
 
Geen verstand van. Deze zag ik op internet.
Code: 
e.g.
 [vba]Sub t()
 Dim fso As Object
 Set fso = CreateObject("Scripting.FileSystemObject")
 MsgBox "ThisWorkbook.Path = " & ThisWorkbook.Path & vbLf & _
 "Path one folder down = " & fso.GetFolder(ThisWorkbook.Path & "\..").Path
 Set fso = Nothing
 End Sub[/vba]
 
Bedankt allebei,

Beide oplossingen werken. Mijn vraag is betantwoord.

groet,
Willem
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan