How to determine the parent directory

[Guest]

Dear all,

I have a string variable, i.e. strDB="c:\data\aproject\database\dbfile.mdb".
I want to add a subdirectory under "c:\data\aproject\reports"
programmatically. How can I do that?

Thanks in advance!

 

[Bob Phillips]

strDB = "c:\data\aproject\database\dbfile.mdb"
iPos = InStrRev(strDB, "\")
iPos = InStrRev(strDB, "\", iPos - 1)
MkDir Left(strDB, iPos) & "reports"

 

[Guest]

Check out this link...

http://support.microsoft.com/default.aspx?scid=kb;en-us;213800

So use something like

Shell ("Command.com /c md C:\Test")

HTH

 

[Guest]

Nice... I've been creating directories the hard way...

 

[Dana DeLouis]

Here are two additional ideas:

Sub Demo1()
Dim v
Dim s As String
Const strDB = "c:\data\aproject\database\dbfile.mdb"

v = Split(strDB, Application.PathSeparator)
v(UBound(v)) = "Reports"
s = Join(v, Application.PathSeparator)
End Sub

Sub Demo2()
Dim fso
Dim s As String
Const strDB = "c:\data\aproject\database\dbfile.mdb"

Set fso = CreateObject("Scripting.FileSystemObject")
With fso
If .FileExists(strDB) Then
s = .BuildPath(.GetFile(strDB).ParentFolder.Path, "Reports")
End If
End With
End Sub

HTH :>)

 

[Guest]

Thank you very much all of you!

Here are two additional ideas:

Sub Demo1()
Dim v
Dim s As String
Const strDB = "c:\data\aproject\database\dbfile.mdb"

v = Split(strDB, Application.PathSeparator)
v(UBound(v)) = "Reports"
s = Join(v, Application.PathSeparator)
End Sub

Sub Demo2()
Dim fso
Dim s As String
Const strDB = "c:\data\aproject\database\dbfile.mdb"

Set fso = CreateObject("Scripting.FileSystemObject")
With fso
If .FileExists(strDB) Then
s = .BuildPath(.GetFile(strDB).ParentFolder.Path, "Reports")
End If
End With
End Sub

HTH :>)