[VB6]Common dialog bestand opslaan vaste bestandsnaam

[Viper®]

Ik wil via de Common dialog van vb6 een bestand opslaan maar met een vaste bestandsnaam en extensie.

dlg.FileName = "bestandsnaam"
dlg.DefaultExt = "*.xml"
dlg.Filter = "xml (*.xml) | *.xml"
dlg.ShowSave

dit werkt leuk maar dan kan de gebruiker nog steeds de bestandsnaam veranderen. Kan ik die niet vast maken ?

[pkouwer]

kun je niet iets met filecopy, of gewoon de print functie ??

[Viper®]

filecopy is leuk, maar ik wou gebruik maken van de overzichtelijke common dialog om een bestand op te slaan. Aan de gebruiker vragen om een directory in te typen wordt niks.

[pkouwer]

en met een API een directory selecteren en dan alsnog filecopy ? Met Common Dialog blijf je altijd de mogelijkheid hebben om de bestandsnaam aan te passen.

[Boss]

Dan heb je geen SaveAs dialoog nodig, maar een dialoog waarin de gebruiker alleen maar een directory kan aanwijzen. Weet even niet hoe die heet, maar hij bestaat zeker wel!

En anders in de filename text iets zetten van 'ignore - will be replaced with default filename' en dan gewoon in de code de vaste naam gebruiken.

[Verwijderd]

Zekers kan dat wel.
Een makkelijk manier is:

Code:

code:

Dim x As Long
Dim comboboxex As Long
Dim combobox As Long
'zoek het hoofdvenster van de common dialog
x& = FindWindow("#32770", vbNullString)
'vervolgens gaan we het edit veld opzoeken
comboboxex& = FindWindowEx(x&, 0&, "comboboxex32", vbNullString)
combobox& = FindWindowEx(comboboxex&, 0&, "combobox", vbNullString)
'hier disable je de edit functie
Call EnableWindow(combobox&, 0&)

Module:

code:

Public Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

[Viper®]

bij mij werkt die code niet echt

[Verwijderd]

je moet die code pas aanroepen als de common dialog is gecreate.

[Boss]

Hoewel dit wel werkt, is het wellicht niet echt duidelijk voor de gebruiker. Hij kan alleen een map kiezen, maar krijgt een dialoog te zien waarmee hij normaalgesproken een bestandsnaam kan opgeven. Niet echt volgens de 'interface standards', voor zover die bestaan...

[Ciqniz]

Dit is volgens mij een oplossing, niet netjes, maar denk dat het wel zal werken:

Visual Basic:

Dim FileNameArray As String 'alle mappen in het pad dat de gebruiker gekozen heeft in een array
Dim StrictFileName As String 'jouw vaste bestandsnaam
Dim FileSavePath As String 'pad dat de gebruiker gekozen heeft
Dim i As Integer 'voor t loopen

StrictFileName = "mijnxml.xml"
CmnDlg.ShowSave 'laat common dialog zien
FileNameArray = Split(CmnDlg.FileName, "\") 'deel het pad op in stukjes (mappen)

For i = 0 To UBound(FileNameArray) - 1 'ga de hele array door op het laatste deel na (bestandsnaam van gebruiker)
  FileSavePath = FileSavePath & FileNameArray & "\" 'bouw pad op excl. bestandsnaam opgegeven door gebruiker
Next i

'om de gebruiker niet al te veel te verwarren:
If Right(CmnDlg.FileName, Len(StrictFileName)) <> StrictFileName Then
  MsgBox "Bestand wordt opgeslagen als " & StrictFileName & " op de lokatie " & FileSavePath
End If

'doe nu je ding met het pad dat de gebruiker gekozen heeft
'zo hoef je alleen je eigen bestandsnaam er nog aan toe te voegen om het te gebruiken:
FileSavePath = FileSavePath & StrictFileName

Daarbij kun je natuurlijk ook gewoon een treeviewcontrol gebruiken??