批量重命名(vb.net)

‘***************************

BY:wgscd

'http://www.wgscd.com

‘Date:2005

'Mail:wgscd@126.com

’****************************

Imports System.IO

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Button2 = New System.Windows.Forms.Button
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.Button3 = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
        Me.Label2 = New System.Windows.Forms.Label
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(288, 120)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(112, 32)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "执行"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(32, 40)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(272, 21)
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = "TextBox1"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(336, 40)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(104, 23)
        Me.Button2.TabIndex = 2
        Me.Button2.Text = "目标文件夹..."
        '
        'ComboBox1
        '
        Me.ComboBox1.Location = New System.Drawing.Point(168, 88)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(80, 20)
        Me.ComboBox1.TabIndex = 3
        Me.ComboBox1.Text = "ComboBox1"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(168, 128)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(80, 21)
        Me.TextBox2.TabIndex = 4
        Me.TextBox2.Text = ""
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(40, 128)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(80, 23)
        Me.Button3.TabIndex = 5
        Me.Button3.Text = "新增文件类型"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(40, 88)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(104, 23)
        Me.Label1.TabIndex = 6
        Me.Label1.Text = "要操作的文件类型"
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(40, 168)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(352, 16)
        Me.ProgressBar1.TabIndex = 7
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(32, 192)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(240, 24)
        Me.Label2.TabIndex = 8
        Me.Label2.Text = "状态"
        '
        'CheckBox1
        '
        Me.CheckBox1.Location = New System.Drawing.Point(304, 80)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(136, 24)
        Me.CheckBox1.TabIndex = 9
        Me.CheckBox1.Text = "完成后打开文件夹"
        '
        'LinkLabel1
        '
        Me.LinkLabel1.Location = New System.Drawing.Point(296, 200)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(144, 23)
        Me.LinkLabel1.TabIndex = 10
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "http://www.wgscd.com"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(464, 238)
        Me.Controls.Add(Me.LinkLabel1)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.ProgressBar1)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.ComboBox1)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.Text = "批量重命名 wgscd 2005"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim Path As String = ""
    Dim Filter As String = "*.*"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Filter = Me.ComboBox1.SelectedItem

        Dim dir As DirectoryInfo
        Path = Me.TextBox1.Text
        If Path <> "" AndAlso Me.ComboBox1.Text <> "" Then
            ' If Me.TextBox1.Text.Trim.Length > 6 Then
            '  MsgBox("文件类型错误")
            '  Exit Sub
            '  End If
        Dim D As New DirectoryInfo("Temp")
        If D.Exists = False Then
            D.Create()
        End If
            dir = New DirectoryInfo(Me.TextBox1.Text)
            Dim lenth As Integer = dir.GetFiles(Filter).Length
            If lenth > 0 Then

                Me.ProgressBar1.Value = 0
                Me.ProgressBar1.Maximum = lenth + 1
                Me.Label2.Text = "正在复制到临时目录。。。"
                Dim fi As FileInfo
                Dim i As Integer = 1
                For Each fi In dir.GetFiles(Filter)
                    Dim Temp As String = fi.Name
                    Dim Extention As String = fi.Extension
                    fi.CopyTo("Temp/" & i & Extention, True)
                    fi.Delete()
                    i += 1
                    Me.ProgressBar1.Value = i

                Next
                Me.ProgressBar1.Value = 0
                Me.Label2.Text = "复制到临时目录完成"

                Me.Label2.Text = "正在删除临时文件。。。"
                dir = New DirectoryInfo("Temp")
                If dir.GetFiles(Filter).Length Then
                    Dim fi2 As FileInfo
                    Dim j As Integer = 1
                    For Each fi2 In dir.GetFiles(Filter)
                        Dim Temp As String = fi2.Name
                        Dim Extention As String = fi2.Extension
                        fi2.CopyTo(Path & "/" & j & Extention, True)
                        fi2.Delete()
                        j += 1
                        Me.ProgressBar1.Value = j
                    Next
                    Me.Label2.Text = "处理完成"

                    If Me.CheckBox1.Checked Then

                        Dim p As New Process
                        p.Start(Path)


                    End If
                End If

            Else : Exit Sub


            End If

        Else

            MsgBox("请选择设置操作路径和要文件类型")

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
        Me.ComboBox1.Items.AddRange(New String() {"*.*", "*.jpg", ".gif", "*.bmp", "*.tif", "*.png", "*.html", "*.htm", "*.asp", "*.aspx"})
        ComboBox1.SelectedIndex = 1
        TextBox2.Text = "例如*.jsp"

    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox2.Text <> "" Then
            If Me.TextBox2.Text.Trim Like "*.*" Then
                Me.ComboBox1.Items.Add(TextBox2.Text.Trim)
                Me.ComboBox1.SelectedIndex = Me.ComboBox1.Items.Count - 1
            End If
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ofd As New FolderBrowserDialog
        If ofd.ShowDialog = DialogResult.OK Then
            Me.TextBox1.Text = ofd.SelectedPath
        End If
    End Sub
 
  
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim p As New Process
        p.Start(Me.LinkLabel1.Text)

    End Sub
End Class

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值