VB 复制文件并更改文件名

1

commondialog的控件名为Microsoft Common Dialog Control 60，文件名为comdlg32ocx，如果没有，可在你的机器上搜索comdlg32ocx，如果还没有，可到网上下载，放到Windows\system32目录下（不是必须，但放到该目录下VB可直接找到）。

第二个问题：

FileCopy 源文件名,目标文件名

2

dir (绝对路径），看返回值是不是空的，不是空的就是有，是空的就没有。

实际上VB的帮助文件里都有的。。。多研究一下。

我不会编程，帮你找了一下有关资源，你是搞计算机的，估计看一下应该能触类旁通：

问：把下面所示的下划线之前的数字改为三位数，如：

1_2txt => 001_2txt

3_5txt => 003_5txt

12_2txt => 012_2txt

14_2txt => 014_2txt

请问如何实现？

解答：

'窗体上，加入一个filelistbox控件

Private Sub Command1_Click()

File1Path = "E:\name" '你的文件所在目录

For I = 0 To File1ListCount - 1

pos = InStr(File1List(I), "_")

If pos > 0 Then

shu = Left(File1List(I), pos - 1)

If IsNumeric(shu) Then

newname = Format(shu, "000") & "_" & Right(File1List(I), Len(File1List(I)) - pos)

Name File1Path & "\" & File1List(I) As File1Path & "\" & newname

End If

End If

Next

End Sub

评语：非常感谢，100% 好用！

供楼主参考 又给你找了一个写好的了软件>

'如果没有指定对话框标题栏的文字，则将应用程序名放在标题栏中。

MsgBox "您好，欢迎光临", vbInformation

'指定对话框标题栏的文字，可根据您的需要自定义文字。

MsgBox "您好，欢迎光临", vbInformation,"提示信息"

---------------------------------------------------------

附，MsgBox语法：

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

参数：

Prompt 必需的。字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024 个字符，由所用字符的宽度决定。如果 prompt 的内容超过一行，则可以在每一行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或是回车与换行符的组合 (Chr(13) & Chr(10)) 将各行分隔开来。

Buttons 可选的。数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则

buttons 的缺省值为 0。

Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。

Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。

Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。

在程序所在文件夹创建10个文件夹，名字分别是1到10，再在每个文件夹中创建5个子文件夹，名字分别是1到5：

For i = 1 To 10

    MkDir AppPath & "\" & i

    For j = 1 To 5

        MkDir AppPath & "\" & i & "\" & j

    Next j

Next i

把程序所在文件夹的所有txt文件改名为1txt、2txt、3txtntxt：

d = Dir(AppPath & "\txt")

n = 1

Do Until d = ""

    If d <> n & "txt" Then Name AppPath & "\" & d As AppPath & "\" & n & "txt"

    n = n + 1

    d = Dir

Loop

最简单的方法。用RadioButton控件就行了。何苦搞得这么累呢。如果真要这样做也可以就是五个控件共用一个事件同时订阅相同事件然后再判断你选中的Checkbox其他的为假代码如下：

using System;

using SystemCollectionsGeneric;

using SystemComponentModel;

using SystemData;

先选中要改名的窗体，在属性里找Caption属性，一般第一个窗体都默认Form1，然后想改成什么就改成什么。

或者在代码中你想改窗体名的地方，比如

Private Sub Form_Load()

formnamecaption=‘窗体名’

End Sub

formname 是窗体这个实例的名字，用于引用该实例。

窗体名 是显示在这个窗体最上面的那个名字

name属性

在程序中是没法更改的。

在设计时，可以点击控件，然后在右下角属性窗口的最顶行能看

（名称），后面就控件的名称，直接点击就可以编辑，所有的控件都一样的。(与改名称是在同一个窗口，一开始标题与控件名称是一样的，在标题那位置caption往上几行。)

如果不小心关闭了控件属性窗口，把鼠标放控件上，右键，属性窗口，就出来了。

以上就是关于VB 复制文件并更改文件名全部的内容，包括:VB 复制文件并更改文件名、求一个用VB编的批量改名的程序、vb MSGBOX 改名等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！