Adding a folder

earlyd

Well-known Member
Joined
Dec 10, 2002
Messages
1,199
Anyone have a nice, tight, VBA routine to ask for a folder name and add it? Could also take the folder name from a cell.
 

Some videos you may like

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result

tusharm

MrExcel MVP
Joined
May 28, 2002
Messages
11,028
I guess you would have to define nice and tight. :) Though, it might be faster and less controversial to look up MkDir in XL VBA help.
 

earlyd

Well-known Member
Joined
Dec 10, 2002
Messages
1,199
Thanks for your response... I went with the following:

Sub createfolder()

Dim MyDir As String
MyDir = [B1] & "\" & [b2]
On Error GoTo Exists

MkDir MyDir
Exit Sub
Exists: MsgBox "Already exists...change B2", vbExclamation

End Sub

B1 is the path to the folder, B2 is the new one
 

Watch MrExcel Video

Forum statistics

Threads
1,122,804
Messages
5,598,151
Members
414,214
Latest member
marketingnumbersguy

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top