I'm calling GetPrivateProfileString to read my INI file from a
separate module.  I have to initialize the return string 'srcdir' with
the command srcdir = String$(iLength, 0) where iLength = 255.
The returned string, when I examine it, has a bunch of 'blank'
characters at the end; e.g., C:\MYDIREC\_ _ _ _ _ _ _ ...
except they're not underscores, they're solid boxes.  First, I'd like
to figure out how to get rid of those.  The Trim function didn't work,
and adding double-quotes " around the data in my INI file didn't
work either.  My problem comes in when I try make the assignment:
  frmMINE!filDemog.Path = srcdir
to set the current path for my directory window.  When I run this,
I get the 'out of stack space error' #28, and always on that line.
I think I may not be declaring something correctly for the
GetPrivateProfile routine, or maybe I'm having trouble using it in the
module.  It worked fine when the GPPS routine was under the same form,
and I didn't have to use the  frmMINE! part of the assignment.
  I just started moving things to a module, because I am adding a
second form to my program, and many of the variables will be used in
both forms.
  THANKS FOR HELPING!

Bill

buffer = Left$(buffer, retval)

after you've called GetPrivateProfileString. Anyway, you can get
ftp://ftp.sn.no/user/balchen/vb/source/profiles.zip for easier access to
Get-/WritePrivateProfileString

--
VB Info: http://www.sn.no/~balchen/vb/visual.htm
FAQ: http://www.sn.no/~balchen/vb/faq.htm
Knowledge Base: http://www.sn.no/~balchen/vb/kb.htm

The return value of GetProfileString and GetPrivateProfileString
is the number of valid characters put into the buffer. Try this:

Dim r As Integer, Buf As String
Buf = String$(255, 0)
r = GetPrivateProfileString("foo", "bar", "default", Buf, Len(Buf), INIFile)
Buf = Left$(Buf, r)

--

WARNING: I cannot be held responsible for the above        They're   coming  to
because  my cats have  apparently  learned to type.        take me away, ha ha!

Dim Result As Integer, srcDir As String

srcDir = Space$(257)
Result = GetPrivateProfileString("Catalogs", "LastUsed", App.Path, srcDir, Len(srcDir), "c:\progs\anyfile.ini")
srcDir = Left$(srcDir, Result)

This is how You should cut the trailing zeros (or in my case, spaces).
App.Path is added in case the key LastUsed is not present, ie App.Path becomes default value.

See Help file for more information...

Peter Larsson