今天查了查msdn,做了个简单的批量文件更名的程序!
来源:互联网 发布:何洁 知乎 编辑:程序博客网 时间:2024/04/19 07:52
呵呵,有意思!
Imports System.IO
Namespace Xyn.Xyn
Public Class MainBase
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 MyFolderBrowserDialog As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents MyButton As System.Windows.Forms.Button
Friend WithEvents MyTextBox As System.Windows.Forms.TextBox
Friend WithEvents PathBox As System.Windows.Forms.TextBox
Friend WithEvents Submit As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.MyFolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog
Me.MyButton = New System.Windows.Forms.Button
Me.MyTextBox = New System.Windows.Forms.TextBox
Me.PathBox = New System.Windows.Forms.TextBox
Me.Submit = New System.Windows.Forms.Button
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'MyButton
'
Me.MyButton.Location = New System.Drawing.Point(257, 57)
Me.MyButton.Name = "MyButton"
Me.MyButton.Size = New System.Drawing.Size(104, 21)
Me.MyButton.TabIndex = 0
Me.MyButton.Text = "选择"
'
'MyTextBox
'
Me.MyTextBox.Location = New System.Drawing.Point(119, 112)
Me.MyTextBox.Name = "MyTextBox"
Me.MyTextBox.Size = New System.Drawing.Size(104, 21)
Me.MyTextBox.TabIndex = 1
Me.MyTextBox.Text = ""
'
'PathBox
'
Me.PathBox.Location = New System.Drawing.Point(121, 57)
Me.PathBox.Name = "PathBox"
Me.PathBox.ReadOnly = True
Me.PathBox.Size = New System.Drawing.Size(104, 21)
Me.PathBox.TabIndex = 2
Me.PathBox.Text = ""
'
'Submit
'
Me.Submit.Location = New System.Drawing.Point(255, 111)
Me.Submit.Name = "Submit"
Me.Submit.Size = New System.Drawing.Size(104, 21)
Me.Submit.TabIndex = 3
Me.Submit.Text = "确定"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(33, 57)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(64, 18)
Me.Label1.TabIndex = 4
Me.Label1.Text = "选择路径"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(31, 111)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 18)
Me.Label2.TabIndex = 5
Me.Label2.Text = "起始文件名"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'MainBase
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(392, 190)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Submit)
Me.Controls.Add(Me.PathBox)
Me.Controls.Add(Me.MyTextBox)
Me.Controls.Add(Me.MyButton)
Me.Name = "MainBase"
Me.Text = "批量文件命名"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyButton.Click
Try
MyFolderBrowserDialog = New FolderBrowserDialog
MyFolderBrowserDialog.ShowDialog()
PathBox.Text = MyFolderBrowserDialog.SelectedPath
Catch ex As Exception
End Try
End Sub
Private Sub Submit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Submit.Click
Dim MyMessageBox As New MsgBoxResult
MyMessageBox = MsgBox("确定要重命名么?", MsgBoxStyle.OKCancel, "真的么?")
If MyMessageBox = MsgBoxResult.Cancel Then
Return
End If
Try
Dim mystrings As String() = Directory.GetFiles(PathBox.Text)
Dim mystring As String
Dim i As Integer = 0
For Each mystring In mystrings
Rename(mystring, mystring.Substring(0, Len(PathBox.Text) + 1) + MyTextBox.Text + i.ToString + mystring.Substring(Len(mystring) - 4))
i = i + 1
Next
PathBox.Text = ""
MyTextBox.Text = ""
Catch ex As Exception
End Try
End Sub
End Class
End Namespace
- 今天查了查msdn,做了个简单的批量文件更名的程序!
- 今天做了个简单的hash
- 今天高考查成绩,于是我用程序简单绕过了高考的验证码。非黑客技术
- 今天用perl写了个自动查手机归属的脚本,perl很好很强大!
- 自己做了个移动查话费的东西,大家可以下来用!
- 最近刚做了个网站能查google的pangerank
- 管理的网路设备较多,今天借助SNMP++ 编写了一个SNMP的COM控件,可以用VBS脚本批量查自己想要的数据了
- 今天做了个CCF的第一个题
- 【原创】搞了个NetGear的路由器,为此写了个小程序来查Wan IP.
- 【原创】搞了个NetGear的路由器,为此写了个小程序来查Wan IP.
- 今天做了一个简单的FLASH菜单定位相应栏目的一段小程序。
- 今天查了一天连接,累死了
- 今天初步做了个ReBar的控件
- 今天做了一个系统托盘的小程序
- 一怒之下做了个基于微信公众平台结合百度地图的查公交应用!轻量!方便!快捷!
- 初学nodejs一星期 做了一套mongoose + express最新版的增删改查 很简单实用 希望大家一起成长
- 今天写了个用jxl.jar操作excel文件的java程序
- 今天做了一道的题目,简单是因为程序写起来简单,但是感觉题目不错;
- CPD源代码
- 元旦
- [原创]实现从当前月向下推N个月的函数
- total
- 在ATL DLL中传递C++对象
- 今天查了查msdn,做了个简单的批量文件更名的程序!
- 毕业设计卷首语
- Reflector、PInvoke.NET、XP&ADHelper
- MyCollege.Net系统规划与总体设计
- Provider 错误 '80004005' 未指定的错误
- 感冒
- 统一身份认证子系统详细设计与部分实现
- 忘了捕获异常~~~~~~~~`
- 2005年1月1日 兄弟