Solved

Get current path

Posted on 2001-08-22
12
262 Views
Last Modified: 2009-07-29
How can I get the path that my program is running from upon running my program?
0
Comment
Question by:Barb0400
  • 3
  • 3
  • 3
  • +3
12 Comments
 
LVL 3

Expert Comment

by:SirNick
ID: 6413876
Try

form1.caption =form1.path
0
 
LVL 3

Expert Comment

by:SirNick
ID: 6413890
Of course you will have to probably compile your program first.
0
 
LVL 28

Accepted Solution

by:
vinnyd79 earned 20 total points
ID: 6413900
Text1.text = app.path
0
 
LVL 8

Expert Comment

by:Dave_Greene
ID: 6413909
Vinny is correct  :)
0
 
LVL 3

Expert Comment

by:SirNick
ID: 6413961
Yes I agree with Dave_Greene that Vinny is right, I have just tried out my suggestion and I now realise that there is no 'path' property for form1.

Sorry
0
 

Expert Comment

by:Arvindtn
ID: 6414354
Use this win32 API to get the current directory

Public Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectory" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Hope this solves ur problem.

0
How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

 

Expert Comment

by:peterchamberlin
ID: 6414392
What I do is to declare a global AppPath variable and then use the following code right near the program start...

AppPath = App.Path
If Right$(AppPath,1)="\" Then
   AppPath = Left$(AppPath,Len(AppPath)-1)
End IF

The reason for this being that if your program is running from root directory, such as C:\, then normal app.path returns "C:" only and so will muck up any usage of AppPath and backslashes in the rest of your program.

You can get the current operational directory using CurDir(), and change this if necessary with ChDir to your path.

For references to files etc. always use AppPath & "\FileName.ext" or AppPath & "\Directory\FileName.ext"
0
 
LVL 8

Expert Comment

by:Dave_Greene
ID: 6414429
Peter, you have been around this forum long enough to know that you shouldn't be proposing answers to questions... especially when your suggestion has already been commented in this thread.  Barb, please reject Peters proposed answer.

Dave
0
 
LVL 1

Expert Comment

by:eeevans
ID: 6414473
The only other thing I would add is to keep in mind that App.Path == CurDir at the startup of your application if you run it by double clicking on the EXE file in a Windows Explorer or if started by a shortcut that has same directory in the Start In field of the properties page.  Otherwise they will be different based on the value of the Start In field.  The CurDir will be the path in that field or the directory that the shortcut is stored in if left blank.

Regards,

eeevans
0
 

Expert Comment

by:peterchamberlin
ID: 6414487
"you shouldn't be proposing answers to questions"

Well, sorry, I'll refrain from posting anything in future !

App.Path had been commented on, but not the problem with the backslash, neither had CurDir been mentioned.
0
 
LVL 8

Expert Comment

by:Dave_Greene
ID: 6414516
Peter I'm not trying to brow beat you into not posting comments.  Please do!!!  but when you post your comment as "THE ANSWER", it moves the question to the locked area, where it gets less visibility, and is basically a dis-service to the question asker.  

No hard feelings my friend!

-Dave
0
 

Expert Comment

by:peterchamberlin
ID: 6414864
Apologise, I wasn't aware of the loss of visibility to a question's status on providing a possible answer. Will leave such as comments in future.
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now