Vb 读取要重命名的文件，VB 重命名文件

使用 name 语句更改文件的名称。 在此示例中，假定所有使用的目录或文件夹都已存在。

dim oldname, newname

oldname = "oldfile": newname = "newfile" '定义文件名。

name oldname as newname '更改文件名。

oldname = "

c\mydir\oldfile": newname = "c:\yourdir\newfile"

name oldname as newname '更改文件名，然后移动文件。

其他：使用 shell 语句调用 dos 命令 rename。

name "d：创建新文件夹" as "d：创建新文件夹"

private sub command1_click()

name "f：松散的结 松散的结。 txt" as "f：松散的结和松散的结。 exe"

end sub

是VB还是？

VB 的绘图就像用 FSO 求解的 1L。

如果单击以等待输入，则可以使用 listview 控件或 label 和 textbox 的组合，并且文本框的可见项设置为 false。

在标签中，单击事件。

keydown 事件。

if keycode=13 then'如果您要点击，请输入'加上重命名文件的 **。

end if

是的，newfilename）。

将 d： test 目录下的所有 jpg 文件重命名为 picjpg**：

dim i as integer

i = 1set fs = createobject("")set fd = "d:\test")

for each f in

i = i + 1

end if

如果文件名已确定，则可以使用 set f="[完整路径和文件名]。"），然后使用"[新文件名]。"

另外，在提问时，要注意已知的条件和要达到的效果，什么样的文件名是“几个已知文件名的文件”，有什么规矩吗？ 它在同一个文件夹下吗？ 或者您是否将文件名存储在字符串数组中？

如果你没有说清楚别人如何帮助你，你只能给你一个实现它的想法。

打开记事本，将其中的 form1 更改为所需的 form1，并将其更改为相应的名称。

但是，在加载项目时，您可能找不到原始 form1，然后可以向其添加窗体。

在 VB6 中，在“文件”菜单中执行“form1 另存为”（form1 表示当前表单名称），或者在项目资源管理器窗口中右键单击要重命名的表单，然后在弹出的快捷菜单中执行“form1 另存为”（form1 表示当前表单名称）。

重命名样式文件后，请务必保存项目文件。

.VBP 内部，可以更改独立表单的 forn1 属性的第一个属性。

运行 VB --,项目窗口,--右键单击 --form1，另存为，输入文件名---保存。

右键单击，选择“重命名”，然后键入“选择”，就可以开始了。

可以使用 name 方法更改 VB 的名称。

以下语句是将 C 驱动器重命名为：

name “c:\ as "c:\"

语法：将原始文件名命名为新文件名。

文件名应包含完整路径。

注意：1.如果要重命名的文本已打开，则此方法将产生错误。 在更改名称之前，必须关闭打开的文件。

2. name 参数不能包含多字符 （*） 和单字符 （？.）媒人。

name "路径" & "旧文件名。 txt" as "路径" & "[新文件名]。txt"

以下函数根据路径返回文件名。

public function getfilename(fpath)dim fso: dim pname: dim psizeset fso = createobject("")if = true then

set pname =

getfilename = left(, len( -4)set psize = nothing

elsegetfilename = "未知"

end if

set fso = nothing

end function

这很容易，无非是建立一对一的对应关系。

根据排列原则，可以知道总共有24种不同的情况：

你需要知道的：

1.读取和写入文本文件。

无需更改文件名。

例如：文件的一部分：

1 1 2 3 4 '在 1 日，image1 显示 **1，image2 显示 **2，image3 显示 **3，image4 显示 **4

2 1 2 4 3 '2日，image1 显示 **1，image2 显示 **2，image3 显示 **4，image4 显示 **3

3 1 3 2 4 '3日，image1显示**1，image2显示**3，image3显示**2，image4显示**4

4 1 3 4 2 '4日，image1显示**1，image2显示**3，image3显示**4，image4显示**2

private sub form_load()if val(day(date)) mod 4 = 1 thenelseif val(day(date)) mod 4 = 2 then

elseif val(day(date)) mod 4 = 3 then

elseif val(day(date)) mod 4 = 0 then

end if

end sub

你能看看这个吗？ 我在 C 驱动器中获取 **。

replace(a,b,c)

在 A 中，查找 B 并将其替换为 C

private sub command1_click()dim oldname

dim newname as string, i as integer, a as integer

oldname = array("z:\", "z:\")for i = 0 to ubound(oldname)a = instr(1, oldname(i), "\")newname = replace(oldname(i), mid(oldname(i), 1, a), mid(oldname(i), 1, a) &chr(97 + i))

name oldname(i) as newnamenext

end sub

让我们自己做。