Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4,VB5,VB6
Expertise: Intermediate
Apr 27, 1999

ProjectName - The name of the current project

'  Returns the name of the current project
' The first time it's called it clears the error code
'
Function ProjectName() As String
    Static result As String
    If Len(result) = 0 Then
        On Error Resume Next
        ' cause a dummy, harmless error
        Err.Raise 999
        ' retrieve the project name from the Err.Source property
        result = Err.Source
        On Error GoTo 0
    End If
    ProjectName = result
End Function
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date