|
App.path ovvero 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" 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") MsgBox(My.Application.Info.AssemblyName, MsgBoxStyle.Information, "EXEName") MsgBox(My.Application.Info.Title, MsgBoxStyle.Information, "FileDescription") 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") 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 |