Make new directory using open workbook

[Drfox3]

Anyone know how to create a new directory using the open workbook as the last folder in the directory?
For example;
I am in directory c:\testa\testb\testc
My workbook is named Nova.xlsc

I would like to make a new directory (while executing VBA) that would be c:\testa\testb\testc\Nova\.
Any idea how to do that?
I have been working on this for days.

 

[Domenic]

Try...

[font=Verdana]    [color=darkblue]Dim[/color] strFile [color=darkblue]As[/color] [color=darkblue]String[/color]
    [color=darkblue]Dim[/color] strDir [color=darkblue]As[/color] [color=darkblue]String[/color]

    strFile = ActiveWorkbook.Name

    strDir = Left(strFile, InStr(1, strFile, ".xls", vbTextCompare) - 1)
    
    MkDir ActiveWorkbook.Path & "\" & strDir
    [/font]

Note, however, if you mean Nova.xlsx and not Nova.xlsc, you can replace...

strDir = Left(strFile, InStr(1, strFile, ".xls", vbTextCompare) - 1)

with

strDir = Left(strFile, InStr(1, strFile, [COLOR="Red"]".xlsx"[/COLOR], vbTextCompare) - 1)