Using MkDir and then populating Hyperlink using Add Method

[Gkr1981]

Hi All,

I have been searching for the past few hours and trying a multitude of different items for such a simple task and its just not playing ball.

What i want to do is the following

I have a cell named ListingFolder - the contents of cell is a formula which displays the directory name i want to create its a simple "C:\ & B1 & B2" to get me the folder name i want created.

1. When trying to use MkDir with that value as a string it doesnt create the folder, so i have to manually specify in the formula

MkDir "C:\" & [b6] & " " & [b7]

But im hoping to get it so it would just read the name of the cell so the spreadsheet can be dynamic and not require people to edit items in vba

The second part of the macro what i need it to do is to create a Hyperlink to that new Folder in a Cell

I have tried using the Hyperlink Add Method, but it is causing nothing but errors mostly "Path Not Found, even though the folder has been created.

If someone can assist me with fixing the MkDir piece to use a cell value as the file directory, and then help me create a hyperlink to that folder.

I would be forever greatful.

Cheers
G

 

[Yongle]

To create folder C:\Test Folder

B6 value Test
B7 value Folder

and your code

    MkDir "C:\" & [b6] & " " & [b7]

Multiple levels - a folder MUST be created BEFORE creating its sub-folders
example: create folder C:\XXX\ABC (where C:\XXX does not yet exist), with B6 = XXX and B7 = ABC

    MkDir "C:\" & [b6]
    MkDir "C:\" & [b6] & "[B]\[/B]" & [b7]

 

[Gkr1981]

Hi Yongle,

The problem isn't creating subfolders.

The problem there is trying to get a CEll to have the full folder name I want to create instead of using hardcoded directory links.

And then the issue is of it not allowing me to Hyperlink the address.

Appreciate the feedback.

Cheers
Graeme

 

[shg]

MkDir thatCell.value

 

[John_w]

Try this macro. It creates the link in B3.

Public Sub Create_Folder_and_Link()
        
    With Range("ListingFolder")
        If Dir(.Value, vbDirectory) = vbNullString Then
            MkDir .Value
        End If
        .Worksheet.Hyperlinks.Add Anchor:=.Worksheet.Range("B3"), Address:=.Value, TextToDisplay:="Link to ListingFolder"
    End With
    
End Sub

 

[Gkr1981]

thanks it worked.Appreciate it.