[VB6]: Creare una cartella

[andrea toniolo]

vorrei fare un tasto che quando lo schiaccio mi crea una cartella , la path di esempio e' app.path & "\pippo\", qualcuno mi puo' dire come fare? sono sicuro che c'e' gia questa discussione, solo che non riesco a cercare le cose non capisco il perche' ma mi da' la pagina bianca

[alka]

Leggi questa discussione.

Se hai ottenuto una pagina bianca, evidentemente il forum fa un po' le bizze ogni tanto.

Ciao!

[andrea toniolo]

comunque non lo so se e' il sito che non va o la mia connessione, opto x la seconda

[LMondi]

Sì, però prima di dare il comando di creazione della cartella si deve controllare se esiste già, potresti fare in questo modo:

Private Sub Command1_Click()
    Dim strNameFold As String
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject

    'Controlla se esiste la cartella DATI altrimenti la crea:
        If (FSO.FolderExists(App.Path & "\" & "DATI")) = False Then
            With FSO
                .CreateFolder (App.Path & "\" & "DATI")
                .CreateFolder (App.Path & "\" & "DATI\AnagClienti")
                ' ... ... ...
              End With
            
            strNameFold = FSO.GetFolder(App.Path & "\" & "DATI")
            MsgBox "La cartella DATI e le relative sottocartelle, sono state" & vbCr _
            & "create con successo in  " & strNameFold & ".", vbInformation, "Applicazioni........"
        End If

    Set FSO = Nothing
End Sub

[andrea toniolo]

Private Sub Command3_Click()

Dim fs As FileSystemObject
Set fs = New Scripting.FileSystemObject
fs.CreateFolder App.Path & "\MioFolder"

End Sub
mi dice ke il tipo definito dall'utnte non e' definito

[alka]

Originariamente inviato da andrea toniolo
mi dice ke il tipo definito dall'utnte non e' definito

Forse perché leggi superficialmente quanto ti viene indicato.

Nella discussione segnalata è scritto

Nei riferimenti aggiungi Microsoft Scripting Runtime.

Lo hai fatto?

[andrea toniolo]

Originariamente inviato da alka
Forse perché leggi superficialmente quanto ti viene indicato.

Nella discussione segnalata è scritto



Lo hai fatto?

quali riferiemnti?

[LMondi]

Click su: Progetto>Riferimenti>Microsoft Scripting Runtime

[icecube_HT]

Originariamente inviato da andrea toniolo
vorrei fare un tasto che quando lo schiaccio mi crea una cartella , la path di esempio e' app.path & "\pippo\", qualcuno mi puo' dire come fare? sono sicuro che c'e' gia questa discussione, solo che non riesco a cercare le cose non capisco il perche' ma mi da' la pagina bianca

Secondo me la richiesta e' semplice e necessita di una risposta semplice:

ChDir App.Path
On Error Resume Next 'nel caso la dir esista gia'
MkDir "pippo" 'piu' semplice di cosi'......

Certo, in un'applicazione completa e' meglio utilizzare il FileSystemObject....

[LMondi]

icecube_HT

Secondo me la richiesta e' semplice e necessita di una risposta semplice:

Ora non per fare polemiche, ma ritengo che quando si risponde ad una richiesta d'intervento sia doveroso scrivere del codice al meglio delle proprie possibilità; ciò anche per tracciare un percorso di programmazione che consenta di apprendere nuove tecniche, come l'uso della potente libreria esterna FSO.
Poi l'uso di: On Error Resume Next è deprecabile, perchè è un'istruzione "alla spera in Dio".
Quindi se proprio si vul restare nell'uso di comandi ex DOS, almeno si usi:

Private Sub Command1_Click()
    
    ChDir App.Path
    On Error GoTo ErrHandler
   
    MkDir "pippo"

ErrHandler:
If Err.Number <> 0 Then
    MsgBox "Errore: " & Err.Number & " " & Err.Description & Chr(13) _
    & "La cartella esiste già!", vbCritical, "Prova creazione cartella"
    Err.Clear
    Exit Sub
End If

End Sub