[VB6] Creare una cartella sul desktop

[angelicab]

ciao!
come faccio a creare una cartella sul desktop??

[MaverickNumber1]

Adesso a dirti la verità non mi ricordo la funzione precisa....ma sicuramente dovresti andare a vedere in mezzo alle API di windows...c'è un programmino apposito per trovare tutte le funzioni di windows sulla suite di VB6...non mi ricordo come si chiama

[angelicab]

nessun altro ha già affrontato il problema??

[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,

[angelicab]

uhm.. questo va con winXP .. e se ho altre versioni di windows?? e se non so l'utente??

[Brainjar]

Se non sai l'utente lo ricavi tramite la GetUserName

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String
     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

Per gli altri sistemi Windows, crea una cartella manualmente, sul
desktop. vai nelle proprietà della cartella (click tasto destro del
mouse) e vedi qual'è il percorso. Quest'ultimo lo sostituisci a
C:\Documents and Settings\ .........

Ciao,

[angelicab]

Per gli altri sistemi Windows, crea una cartella manualmente, sul
desktop. vai nelle proprietà della cartella (click tasto destro del
mouse) e vedi qual'è il percorso. Quest'ultimo lo sostituisci a
C:\Documents and Settings\ .........

uhm.. quindi devo già sapere in partenza su che sistema operativo girerà il progamma??? e se non lo sapessi??

[Brainjar]

Cerca la documentazione su WinSysDir (o qualcosa del genere).
Dalle informazioni che trovi puoi risalire alla versione del SO.
Ciao,

[SimoneVB]

Eccoti accontentato/a

Option Explicit
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long _
    , ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll"  _
    Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

Private Const CSIDL_DESKTOP = &H0     ' Desktop
Private Const CSIDL_PROGRAMS = &H2    ' Programmi
Private Const CSIDL_FAVORITES = &H6   ' Preferiti
Private Const CSIDL_STARTUP = &H7     ' Esecuzione automatica
Private Const CSIDL_RECENT = &H8      ' Recenti
Private Const CSIDL_SENDTO = &H9      ' SendTo
Private Const CSIDL_STARTMENU = &HB   ' StartMenu
Private Const CSIDL_FONTS = &H14      ' Fonts
Private Const CSIDL_TEMPLATES = &H15  ' Modelli
Private Const CSIDL_NETHOOD = &H13    ' Risorse di rete
Private Const CSIDL_PERSONAL = &H5    ' MyDocuments


'
Property Get Desktop() As String
' Restituisce la directory del Desktop

    Desktop = GetSpecialfolder(CSIDL_DESKTOP)
End Property

'
Private Function GetSpecialfolder(CSIDL As Long) As String
' Directory speciali

Dim sRetVal As String
Dim lRetVal As Long
Dim IDL As ITEMIDLIST

' ottiene la lista delle directory
lRetVal = SHGetSpecialFolderLocation(100, CSIDL, IDL)

If lRetVal = 0 Then

    ' Inizializza la stringa
    sRetVal = Space$(512)

    ' recupera il path dalla lista
    lRetVal = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sRetVal)
    If InStr(sRetVal, Chr$(0)) > 0 Then sRetVal = Left$(sRetVal, InStr(sRetVal, Chr$(0)) - 1)

    ' return
    GetSpecialfolder = sRetVal
End If
End Function

Ciao ciao
Simo

[angelicab]

grazie mille