Move up a folder in VBA (EXCEL)

[Buffyslay]

hi

i am currently using the command

thisworkbook.path

if i want to go up a folder, and i was using html i would go ..\ but
how do i do this in VBA?

 

[raider]

Try this;


Sub Test()
Set fso = CreateObject("scripting.filesystemobject")
Set x = fso.getfolder(ThisWorkbook.Path)
MsgBox x.parentfolder
End Sub

 

[Buffyslay]

wow - that was easy - thank you very much

 

[Parag Mahajan]

U can do it using fso as FileSystemObject
and from there u can get the ParentFolder.

Hope that helps.
Parag.

 

[Tom Ogilvy]

Depending on what you are doing, you can use "\.."

for example. If I want to check on the existence of the file File2.xls in
the directory above the activeworkbook: (demo'd from the immediate window).

? activeworkbook.Path
C:\Data\Data1\Data2
sStr = ActiveWorkbook.Path & "\..\"
? sStr
C:\Data\Data1\Data2\..\
? dir(sStr & "File2.xls")
file2.xls