public class Test public Shared Sub Main Console.WriteLine(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData) End Sub End class
C:\Documents and Settings\All Users\Application Data\Test\Test\0.0.0.0