protected override IProject CreateTestProject()
		{
			ProjectCreateInformation info = new ProjectCreateInformation();
			info.ProjectName = "Test";
			info.RootNamespace = "Test";
			info.OutputProjectFileName = Path.Combine(Path.GetTempPath(), "Test.vbproj");
			info.Solution = this.Solution;
			
			VBNetProject p = new VBNetProject(info);
			return p;
		}
예제 #2
0
        protected override IProject CreateTestProject()
        {
            ProjectCreateInformation info = new ProjectCreateInformation();

            info.ProjectName           = "Test";
            info.RootNamespace         = "Test";
            info.OutputProjectFileName = Path.Combine(Path.GetTempPath(), "Test.vbproj");
            info.Solution = this.Solution;

            VBNetProject p = new VBNetProject(info);

            return(p);
        }
예제 #3
0
        public void Convert(string vb6ProjectFilePath, string dotNetFolderPath)
        {
            string originalWorkingDirectory = string.Empty;

            try
            {
                originalWorkingDirectory = Directory.GetCurrentDirectory();

                // Extract data from VB6 project file and convert it to .net project file.
                var projectParser = new VisualBasic6ProjectParser();
                var vb6Project    = projectParser.ParseProjectFile(vb6ProjectFilePath);
                var vbNetProject  = new VBNetProject(vb6Project);
                var vbNetWriter   = new VBNetProjectFileWriter(vbNetProject, originalWorkingDirectory, dotNetFolderPath);
                vbNetWriter.CreateProjectFile();

                var vb6ProjectFolder = Path.GetDirectoryName(vb6ProjectFilePath);
                foreach (var md in vb6Project.ProjectModules)
                {
                    ProcessFile(vb6ProjectFolder, vbNetWriter, md);
                }

                foreach (var cls in vb6Project.ProjectClasses)
                {
                    ProcessFile(vb6ProjectFolder, vbNetWriter, cls);
                }
            }
            catch (Exception ex)
            {
                // Debugging purposes...
                throw;
            }
            //finally
            //{
            //    if (!string.IsNullOrWhiteSpace(originalWorkingDirectory))
            //        Directory.SetCurrentDirectory(originalWorkingDirectory);
            //}
        }
예제 #4
0
 internal VBNetProjectFileWriter(VBNetProject vbNetProject, string workingFolderPath, string destFolderPath)
 {
     _vbNetProject         = vbNetProject;
     _currentworkingFolder = workingFolderPath;
     ProjectFolder         = Path.Combine(destFolderPath, vbNetProject.ProjectFolderName);
 }