App.Path procedura

Private AppPath As String = Replace(Replace(Replace(Application.ExecutablePath, Application.ProductName + ".EXE", ""), Application.ProductName + ".exe", ""), Application.ProductName + ".exe", "")
oppure
app.version
MsgBox("Application version: " & My.Application.Info.Version.ToString)
app.path & "\Pippo.frm"
'UPGRADE_WARNING: Dir has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'
If Dir(My.Application.Info.DirectoryPath & "\Documenti\Lavanderia.chm") <> "" Then
    �.
End If
MsgBox(My.Application.Info.Description, MsgBoxStyle.Information, "Commenti")
MsgBox(My.Application.Info.CompanyName, MsgBoxStyle.Information, "CompanyName")
'UPGRADE_WARNING: App property App.EXEName has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'
MsgBox(My.Application.Info.AssemblyName, MsgBoxStyle.Information, "EXEName")
MsgBox(My.Application.Info.Title, MsgBoxStyle.Information, "FileDescription")
'UPGRADE_ISSUE: App property App.HelpFile was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="076C26E5-B7A9-4E77-B69C-B4448DF39E58"'
MsgBox(App.HelpFile, MsgBoxStyle.Information, "HelpFile")
MsgBox(VB6.GetHInstance.ToInt32, MsgBoxStyle.Information, "hInstance")
MsgBox(My.Application.Info.Copyright, MsgBoxStyle.Information, "LegalCopyright")
MsgBox(My.Application.Info.Trademark, MsgBoxStyle.Information, "LegalTrademarks")
'UPGRADE_ISSUE: App property App.LogPath was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="076C26E5-B7A9-4E77-B69C-B4448DF39E58"'
MsgBox(App.LogPath, MsgBoxStyle.Information, "LogPath")
MsgBox(My.Application.Info.Version.Major, MsgBoxStyle.Information, "Major")
MsgBox(My.Application.Info.Version.Minor, MsgBoxStyle.Information, "Minor")
MsgBox(My.Application.Info.DirectoryPath, MsgBoxStyle.Information, "Path")
MsgBox(My.Application.Info.Version.Revision, MsgBoxStyle.Information, "Revision")
oppure
If Dir(My.Application.Info.DirectoryPath & "\TESTI\*.*") = "" Then
    ChDir(My.Application.Info.DirectoryPath)
    MkDir("TESTI")
    ChDir(My.Application.Info.DirectoryPath)
End If

My.Application.Info.DirectoryPath

Private AppPath As String = Replace(Replace(Replace(Application.ExecutablePath, Application.ProductName + ".EXE", ""), Application.ProductName + ".exe", ""), Application.ProductName + ".exe", "")
oppure
app.version
MsgBox("Application version: " & My.Application.Info.Version.ToString)
app.path & "\Pippo.frm"
'UPGRADE_WARNING: Dir has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'

If Dir(My.Application.Info.DirectoryPath & "\Documenti\Lavanderia.chm") <> "" Then
�.
End If
MsgBox(My.Application.Info.Description, MsgBoxStyle.Information, "Commenti")
MsgBox(My.Application.Info.CompanyName, MsgBoxStyle.Information, "CompanyName")
'UPGRADE_WARNING: App property App.EXEName has a new behavior. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6BA9B8D2-2A32-4B6E-8D36-44949974A5B4"'

MsgBox(My.Application.Info.AssemblyName, MsgBoxStyle.Information, "EXEName")
MsgBox(My.Application.Info.Title, MsgBoxStyle.Information, "FileDescription")
'UPGRADE_ISSUE: App property App.HelpFile was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="076C26E5-B7A9-4E77-B69C-B4448DF39E58"'

MsgBox(App.HelpFile, MsgBoxStyle.Information, "HelpFile")
MsgBox(VB6.GetHInstance.ToInt32, MsgBoxStyle.Information, "hInstance")
MsgBox(My.Application.Info.Copyright, MsgBoxStyle.Information, "LegalCopyright")
MsgBox(My.Application.Info.Trademark, MsgBoxStyle.Information, "LegalTrademarks")
'UPGRADE_ISSUE: App property App.LogPath was not upgraded. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="076C26E5-B7A9-4E77-B69C-B4448DF39E58"'

MsgBox(App.LogPath, MsgBoxStyle.Information, "LogPath")
MsgBox(My.Application.Info.Version.Major, MsgBoxStyle.Information, "Major")
MsgBox(My.Application.Info.Version.Minor, MsgBoxStyle.Information, "Minor")
MsgBox(My.Application.Info.DirectoryPath, MsgBoxStyle.Information, "Path")
MsgBox(My.Application.Info.Version.Revision, MsgBoxStyle.Information, "Revision")
oppure
If Dir(My.Application.Info.DirectoryPath & "\TESTI\*.*") = "" Then
ChDir(My.Application.Info.DirectoryPath)
MkDir("TESTI")
ChDir(My.Application.Info.DirectoryPath)
End If

My.Application.Info.DirectoryPath