[VB6] CommonDialog: imporre cartella di salvataggio

[rescueme]

Io vorrei fare in modo che quando si seleziona "Salva con nome..." ed appare il CommonDialog.ShowSave, come cartella di default per il salvataggio del file ci sia il Desktop. Come devo fare? Vi prego, rispondetemi, è importante!!

[Mabi]

Recuperi il percorso del Desktop con la SHGetFolderPath e lo imposti alla InitDir della CommonDialog:

Private Declare Function SHGetFolderPath Lib "shfolder.dll" Alias _
"SHGetFolderPathA" (ByVal hwndOwner As Long, ByVal nFolder As Long, _
ByVal hToken As Long, ByVal dwReserved As Long, _
ByVal lpszPath As String) As Long

Private Sub Command1_Click()
Const CSIDL_COMMON_DESKTOPDIRECTORY = &H10
Const S_OK = &H0
Dim Cartella As String
Dim Risultato As Long

Cartella = Space(260)
Risultato = SHGetFolderPath(Me.hWnd, CSIDL_COMMON_DESKTOPDIRECTORY, 0&, 1&, Cartella)
If (Risultato = S_OK) Then
  CD.InitDir = Cartella
  CD.Flags = &H4
  CD.ShowSave
End If
End Sub

[rescueme]

Grazie infinite!!!!!

[Mabi]

Prego