In my application I have a preferences dialog callable by the main form's menu. On the preferences form there's a button for selecting the app's log file.
I'm using a common dialog control for that task and found a strange behaviour on WinXP:
[ul]
[li]the dialog allows to create new folders
[green]
OK[/green][/li]
[li]the dialog allows to delete folders/files
[green]
OK[/green][/li]
[li]newly created folders are invisible within the dialog's file list view until the user presses F5 to refresh the view
[red]
Not as in other programs on same computer[/red][/li]
[li]deleted folders/files will not vanish within the dialog's file list view until the user presses F5 to refresh the view
[red]
Not as in other programs on same computer[/red][/li]
[/ul]
It does not seem to matter if the preferences form is modal or modeless.
Any hints how I could get the (seems so) default behaviour of the common dialog in my app, too?
I'm using a common dialog control for that task and found a strange behaviour on WinXP:
[ul]
[li]the dialog allows to create new folders
[green]
![[smile] [smile] [smile]](/data/assets/smilies/smile.gif)
[li]the dialog allows to delete folders/files
[green]
![[smile] [smile] [smile]](/data/assets/smilies/smile.gif)
[li]newly created folders are invisible within the dialog's file list view until the user presses F5 to refresh the view
[red]
![[sad] [sad] [sad]](/data/assets/smilies/sad.gif)
[li]deleted folders/files will not vanish within the dialog's file list view until the user presses F5 to refresh the view
[red]
![[sad] [sad] [sad]](/data/assets/smilies/sad.gif)
[/ul]
It does not seem to matter if the preferences form is modal or modeless.
Code:
Private Sub cmdAGLogFile_Click()
Dim fsoTmp As New Scripting.FileSystemObject
Me.dlgFile.flags = cdlOFNExplorer Or cdlOFNHideReadOnly
Me.dlgFile.DefaultExt = ".log"
Me.dlgFile.Filter = ""
Me.dlgFile.InitDir = fsoTmp.GetParentFolderName(Me.txtAGLogFile.text)
Me.dlgFile.FileName = fsoTmp.GetFileName(Me.txtAGLogFile.text)
Me.dlgFile.DialogTitle = "Select Log File"
On Error Resume Next
Err.Clear
Me.dlgFile.ShowSave
If Err.number = 0 Then
Me.txtAGLogFile.text = Me.dlgFile.FileName
End If
End Sub
Any hints how I could get the (seems so) default behaviour of the common dialog in my app, too?