【求助】帮忙用Visual Basic 2003编译个程序

tsrif

今天刚装上Visual Studio 2005，发现编译的程序不能在.Net Framework 1.1 下运行。 VS2003 刚删了，哪位老大帮我把下面的程序编译一下。先谢了。


Imports System.IO

Module ChangeNames

    Sub Main()

        Dim strDirToChange As String, intPrefix As Integer, strEnd As String

        Console.Write("Directories to Change: ")
        strDirToChange = Console.ReadLine

        Console.Write("# of Prefix to Change: ")
        intPrefix = Val(Console.ReadLine)

        If Not Directory.Exists(strDirToChange) Then
            Console.Write("Please check the directory path.")
            strEnd = Console.ReadLine
            Exit Sub
        End If

        If intPrefix < 1 Then
            Console.Write("Please check Prefix you want to change.")
            strEnd = Console.ReadLine
            Exit Sub
        End If

        Dim strSubDir1, strSubDir2, strNewName, strPrefix, strMain As String
        Dim intIndex As Integer

        On Error Resume Next
        For Each strSubDir1 In Directory.GetDirectories(strDirToChange)
            For Each strSubDir2 In Directory.GetDirectories(strSubDir1)
                intIndex = strSubDir2.LastIndexOf("\")
                strMain = Mid(strSubDir2, intIndex + 2 + intPrefix + 1, strSubDir2.Length)
                strPrefix = Mid(strSubDir2, intIndex + 2, intPrefix)
                strNewName = strMain & "_" & strPrefix
                My.Computer.FileSystem.RenameDirectory(strSubDir2, strNewName)
            Next
        Next

        Console.Write("All the directories have been successfully renamed.")
        strEnd = Console.ReadLine

    End Sub

End Module

LiSonTu

用CSC编译啊

找路人

My是vb2005新增的命名空间.不能在 vs2003下编译通过.

tsrif

下面这个可以了吧。


Imports System.IO

public module ChangeNames

sub Main
               
    Dim strDirToChange As String, intPrefix As Integer, strEnd As String

    Console.Write("Directories to Change: ")
    strDirToChange = Console.ReadLine

    Console.Write("# of Prefix to Change: ")
    intPrefix = cInt(Console.ReadLine)

    If Not Directory.Exists(strDirToChange) Then
        Console.Write("Please check the directory path.")
        strEnd = Console.ReadLine
        Exit Sub
    End If

    If intPrefix < 1 Then
        Console.Write("Please check Prefix you want to change.")
        strEnd = Console.ReadLine
        Exit Sub
    End If

    Dim strSubDir1, strSubDir2, strNewName, strPrefix, strMain As String
    Dim intIndex As Integer

    On Error Resume Next
    For Each strSubDir1 In Directory.GetDirectories(strDirToChange)
        For Each strSubDir2 In Directory.GetDirectories(strSubDir1)
            intIndex = strSubDir2.LastIndexOf("\")
            strMain = Mid(strSubDir2, intIndex + 2 + intPrefix + 1, strSubDir2.Length)
            strPrefix = Mid(strSubDir2, intIndex + 2, intPrefix)
            strNewName = strMain & "_" & strPrefix
            Directory.Move(strSubDir2, strSubDir1 & "\" & strNewName)
        Next
    Next

    Console.Write("All the directories have been successfully renamed.")
    strEnd = Console.ReadLine
               
end sub

end module

tsrif

谢谢帮忙的老大了，搞定了。有个软件叫Snippet Compiler可以编译 . NET的程序，编译时可以设定 .NET 1.1还是2.0。

服务器上有几百个目录要改名，系统是Windows 2003 SP1，.NET 1.1，不想装  .NET 2.0，怕把服务器搞死了。随手搞了个小程序改名，无奈VS 2005只能编译 .NET 2.0的。研究了半天也没搞明白怎么设置MSBuild，又不想再装VS 2003，有点焦头烂额。最后用Snippet Compiler解决了问题，这是一个不错的东东。

coolfax

我运行的时候它说名称“Console”未声明。

这是怎么回事?

tsrif

这些没加上？

imports Microsoft.VisualBasic
imports System
imports System.Collections
Imports System.IO

jerry

我要去看看这个好工具