Can I get DirListBox to remember?

[DavidH0011]

I'm trying to get the DirListBox to remember the last folder I openned? Can I do that?

[Stiletto]

Originally posted by DavidH0011
I'm trying to get the DirListBox to remember the last folder I openned? Can I do that?

MsgBox Dir1.dir 'i think

[DavidH0011]

No what I mean is - the next time I open the form with my directory list box I want it already be openned to the last folder I openned.

[Stiletto]

You can save the last open dir's path to a text file and then open it and retrive the path from the file, then set the DirListBox to that path

[Arc]

Better yet use SaveSetting and Getsetting to save it in the registry.

[Motoxpro]

ya what he said

Option Explicit
 
Private Sub Form_Load()
GetSetting(App.EXEName, "Options", "Last Dir") = Dir1.Dir
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Options", "Last Dir", Dir1.Dir
End Sub

[DavidH0011]

Moto I do that and I get

Method or data member not found.

Thoughts on how I could trouble shoot it?

GetSetting(App.ImageConverter, "Options", "Last Dir") = Dir1.Dir

[But_Why]

Try it the other way around. eg

    Dir1.Dir = GetSetting(App.ImageConverter, "Options", "Last Dir", Default_Setting)

Where Default_Setting is a string containing a default path in case they haven't saved a setting yet.

[DavidH0011]

Getting close - same error but it is on a different part...

App.ImageConverter

[BuggyProgrammer]

hey you were the one who added App.ImageConverter in Motoxpro code..... jeez......

Option Explicit
 
Private Sub Form_Load()
Dir1.Dir = GetSetting(App.EXEName, "Options", "Last Dir")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Options", "Last Dir", Dir1.Dir
End Sub

[BuggyProgrammer]

oops its not Dir1.Dir its Dir1.Path

Option Explicit
 
Private Sub Form_Load()
Dir1.Path= GetSetting(App.EXEName, "Options", "Last Dir")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Options", "Last Dir", Dir1.Path
End Sub

[DavidH0011]

I dont remember adding my code to anything called Motoprox? I have not touched VB for over a year. Like anything in life you tend to forget things if you do not stay current and practice.

[DavidH0011]

Yea Buggy I figured that one out. I'm not a totall basket case.

I just still cant get it to work

[BuggyProgrammer]

oops it wasnt you it was the 'But_Why' guy...... and i have no idea why he added that part.

[BuggyProgrammer]

Originally posted by DavidH0011
Yea Buggy I figured that one out. I'm not a totall basket case.

I just still cant get it to work

do you have a DirListBox called Dir1?

and maybe try putting
On error resume next
before the GetSetting part.

[DavidH0011]

Yup

and as far as I can see my EXE is called ImageConverter

Hell I wrote the program it has just been soooo long

[DavidH0011]

This is exactly what it looks like

Private Sub Form_Load()
Dir1.Path = "c:\"
Dir1.Path = GetSetting(App.ImageConverter, "Options", "Last Dir")
End Sub

[BuggyProgrammer]

try putting

On error resume next

because if there is not an entry there it will error i think.

[DavidH0011]

Nah same result, the problem continues to be on the ".ImageConverter" in the App.ImageConverter

How can I confirm what my EXE is called?

[BuggyProgrammer]

o my god...........

it doesnt mean replace it with it.

ACTUALLY USE .EXEName

MANANANAMNFMANVGMANDBMNASDBHNBHBKL

not .ImageConverter

GODOGODOGODGODOGODGODOG

sorry.

[BuggyProgrammer]

use my EXACT EXACT EXACT code. DONT CHANGE THE APP.EXENAME

Option Explicit
 
Private Sub Form_Load()
Dir1.Path= GetSetting(App.EXEName, "Options", "Last Dir")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
SaveSetting App.EXEName, "Options", "Last Dir", Dir1.Path
End Sub

[DavidH0011]

LMAO jee imagine that it works now.

[Arc]

Seems like an Honest mistake to me