Printable View
hai friends,
my application runs in ...
i opened my notepad.... clicked on open menu item it opens Open Dialog Box ... in that i selected filename and pressed Open pushbutton .. it is opened .... fine ...
but my question is that i would like to get the fullpath file name in my application ...
i am using hookings concept ...
i am getting the handle of the open dialog, that may useful for me to get fullpathfilename.
pl give example code or suggestions ...
waiting for reply ...
are you lookimg for this?
'The GetFullPathName function retrieves the full path and filename
' of a specified file.
'Requires Windows NT 3.1 or later; Requires Windows 95 or later
'example:
private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (byval lpFileName as string, byval nBufferLength as Long, byval lpBuffer as string, byval lpFilePart as string) as Long
private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: [email protected]
Dim Buffer as string, Ret as Long
'create a buffer
Buffer = Space(255)
'copy the current directory to the buffer and append 'myfile.ext'
Ret = GetFullPathName("myfile.ext", 255, Buffer, "")
'remove the unnecessary chr$(0)'s
Buffer = Left(Buffer, Ret)
'show the result
MsgBox Buffer
End Sub
Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, TCartwright, Bruno Paris, Dr_Michael
and all the other wonderful people who made and make Codeguru a great place.
Come back soon, you Gurus.
The Rater