Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una cartella

Ciao a tutti!
In un programmino (Visual Basic 6 SP5) a cui sto lavorando vorrei includere
la possibilitą di creare una nuova cartella sul disco per salvare dei dati.
Qualcuno mi puņ consigliare come poterlo fare??
Una seconda domanda: esiste un'oggetto che mi dia la possibilitą di navigare
all'interno del disco seguendo la logica della parte sinistra di Esplora
Risorse?? (Albero con Desktop in alto)
Grazie mille

 Qualcuno mi puņ consigliare come poterlo fare??
Certo, utilizzando il fyleSystemObject,
Crei l'oggetto es: Fso settandolo come "scripting.filesystemobject" e poi
utilizzi l'istruzione :
	fso.createfolder(Path)
Spero possa andare bene!
Ciao MatteoC.
--------------------------------
Inviato via 
http://usenet.libero.it

 Inviato via 
http://usenet.libero.it
Andata!!! Grazie mille!!

 fso.createfolder(Path)
Guarda! Senza mani!
call mkdir(path)  ' <g>
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Andata!!! Grazie mille!!
Come ricorda Zanna, si puo' fare tranquillamente senza FileSystemObject,
basta l'istruzione MkDir e la guida in linea...
giusto perche' ce l'ho davanti agli occhi in un progetto aperto, ecco una
funzioncina che potrebbe tornare utile:
'
'Crea una o piu' cartelle nidificate partendo da un percorso base
'
'Restituisce TRUE se al termine del ciclo l'intero percorso e' disponibile,
'ovvero esisteva gia' tutto, in parte o e' stato creato completamente
Public Function CreatePath(ByVal strBase As String, ByVal strNewPath As
String) As Boolean
Dim arFolders()   As String
Dim i As Integer
arFolders = Split(strNewPath, "\")
For i = 0 To UBound(arFolders)
    If arFolders(i) <> "" Then
        'strBase e' passato per valore, lo usiamo per concatenare
progressivamente
        'le nuove cartelle da verificare e/o creare
        strBase = strBase & arFolders(i) & "\"
        If Dir(strBase, vbDirectory) = "" Then
            On Local Error GoTo PathErr:
            MkDir strBase
            On Local Error GoTo 0
        End If
    End If
Next
CreatePath = True
Exit Function
PathErr:
If MsgBox(Err.Description, vbCritical + vbRetryCancel) = vbRetry Then Resume
CreatePath = False
End Function
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown


Bè...ma cosa ci guadagno rispetto al filesystemobject?

 Bč...ma cosa ci guadagno rispetto al filesystemobject?
Il fatto che non devi includere OCX e/o DLL ?
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com


D'accordo...ma, rigirando la domanda, cosa ci guadagno usando il
filesystemobject? :)

 Ciao
Questa non la sapevo!!!!
Si impara sempre qualcosa!!!!!


 Una seconda domanda: esiste un'oggetto che mi dia la possibilità di


 filesystemobject? :)
Il fatto che non devi implementare oggetti?
Il fatto che non ti devi appoggiare a componenti esterni?
Il fatto che non usi oggetti di scripting?
Il fatto che con una riga standard risolvi il problema anzichč usarne 2 (o 4
se si usasse VB in modo decente)
Il fatto che una chiamata a una funzione intrinseca č molto leggera, mentre
una chiamata a COM no?
Il fatto che se sulla macchina di destinazione non c'č il runtime di
scripting il tuo FSO te lo prendi in quel posto?
Serve altro?



Sě...mi sa che mi hai elencato le problematiche del filesystemobject...io
avrei chiesto quali sono i vantaggi... :P

 > Risorse?? (Albero con Desktop in alto)
rimanendo all'interno del'ide e senza componenti esterni, nella casella
degli strumenti drivelistbox filelistbox dirlistbox opportunamente miscelati
con l'ausilio di F1.
beppe

 avrei chiesto quali sono i vantaggi... :P
Ok, dimmi tu quali sono i vantaggi nell'usare il FSO per creare una dir.
Di svantaggi te ne ho già elencati alcuni.
Ciao
--
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 Il fatto che non devi includere OCX e/o DLL ?
Beh, in realtà FSO è compreso in IE4, per cui grandi Dll non sarebbero da
distribuire (anzi, è meglio non distribuirle proprio, perchè comprendono
anche la temuta e ininstallabile msvcrt).
Il problema è che FSO viene 'centrato' da alcuni antivirus e ti inchioda
l'applicazione.
Sapessi quanta gente si trova i siti asp inchiodati perchè ha usato FSO
nello script...
Ciao
Alberto
PS: Ero un fanatico di FSO, poi ho scoperto questi 'piccoli'
inconvenienti...

 Ciao
E se li sapevo non li chiedevo ;)
Cmq grazie ad Albe V° per le altre delucidazioni e a Minarelli Giuseppe per
quelle riguardanti l'altra domanda :)