[VB6] Creare una cartella sul desktop

[Brainjar]

Nei riferimenti aggiungi Microsoft Scripting Runtime.

Public Sub CreaCartella()
    Dim fs As FileSystemObject
    Set fs = New Scripting.FileSystemObject
    fs.CreateFolder("C:\Documents and Settings\NomeUtente\Desktop\MioFolder")
End Sub

Sostituisci a NomeUtente il nome dell'utente reale ed a MioFolder
il nome della Cartella da creare.

Ciao,