Creare Cartella in vba

[Ricky]

Ciao a tutti,

esiste il modo di creare con Vba una nuova cartella
(il nome lo assegnerei scrivendolo in una cella)
all'interno della cartella dove risiede il mio file d'origne?

Vi ringrazio e vi auguro buon fine settimana

Ricky

[r]

"Ricky" ha scritto:

Sub test()
Dim oFSO As Object
Dim sPath As String
Const sSubFolder As String = "Nome_Tua_Nuova_Cartella" '<<da cambiare

Set oFSO = CreateObject("scripting.filesystemobject")

'controllo che thisworkbook sia salvato
If Len(ThisWorkbook.Path) = 0 Then Exit Sub
'il path relativo a questa cartella
sPath = oFSO.BuildPath(ThisWorkbook.Path, sSubFolder)

'verifico se la subfolder esiste
If oFSO.FolderExists(sPath) = False Then
'se non esiste la creo
oFSO.CreateFolder (sPath)
End If
End Sub

saluti
r

--
Come e dove incollare il codice:
http://www.rondebruin.nl/code.htm

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/UsedRange-eccezioni-e-alternative.html

[Ricky]

Ciao r!

grazie per il codice è quello che cercavo!

Buona domenica
Ricky

"r" ha scritto:

[Mauro Gamberini]

> esiste il modo di creare con Vba una nuova cartella
> (il nome lo assegnerei scrivendolo in una cella)
> all'interno della cartella dove risiede il mio file d'origne?
>
>

Il vb di Excel mette a disposizione tutto quello
che ti serve senza scomodare *altre cose*.
Se fai una domanda come questa,
personalmente(personalmente) non ritengo
necessario aggiungere *altre cose*.

Per creare una cartella(intesa come Directory):

Istruzione MkDir

Per conoscere la path(percorso) del file in cui
attivo:

ThisWorkbook.Path

Per sapere se esiste gi� una Directory con quel nome:

Funzione Dir

Guida del vb di Excel per ulteriori informazioni.

Se non riesci, *dopo aver provato* posta dove trovi
difficolt�. Grazie.

--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/officeit/threads