con il codice sottostante sono riuscita a ricavare il percorso dei file, ma non riesco per fare la stessa cosa con le cartelle... help!

codice:
Dim miofile As Variant
miofile = Application.GetOpenFileName("File Microsoft Excel(*.xls),*.xls", 0, "File di Careri", "Careri", False)
MsgBox miofile