Imports System
Imports System.Windows.Forms
Public Class MainClass
Shared Sub Main()
Dim file_name As String = Application.StartupPath
file_name = file_name.Substring(0, file_name.LastIndexOf("\"))
file_name = file_name.Substring(0, file_name.LastIndexOf("\"))
file_name &= "\test.vb"
Console.WriteLine( file_name)
End Sub
End Class
|