Generating Folder from directory address in cell.

[ToadOnRoll2]

Hi,

I'm trying to generate a folder on the LAN in an address which is contained within a cell.

The code I've got is

Sub makefolder()

If Len(Dir(ADDRESS_CELL_REFERENCE, vbDirectory)) = 0 Then
MkDir ADDRESS_CELL_REFERENCE

End If

End Sub


But ADDRESS_CELL_REFERENCE needs to be a piece of code that points to the cell that contains the addess.

Thanks in advance for any help you may be able to offer.

 

[Derek Brown]

Example:

Sub makefolder()
Dim strAddr As String
strAddr = ActiveSheet.Range("A1").Value
If Len(Dir(strAddr, vbDirectory)) = 0 Then
    MkDir strAddr
End If
End Sub