VB怎么改文件后缀名

发布网友发布时间：2022-11-29 16:43

共5个回答

热心网友时间：2023-10-28 02:16

你好：
你完全可以用 DOS命令完成你的这种操作的。
但是，速度是随你的文件多少而产生的。
其实，就用一条命令解决你所说的问题的。
1、建立一个文件，文件名为：改为RAR1.BAT
以记事本或者写字板等编辑软件打开这个文件，录入内容：
ren …………
晕，这里不能用参数 /S的呀？？
对不起，掠过！关注。

热心网友时间：2023-10-28 02:16

@echo off&color 0c&mode concols=41lines=15&setlocal enabledelayedexpansion
:0
echo *//-----------------------------------\\*
echo ①.还原 ②.修改后缀名
echo *//-----------------------------------\\*
set/p aa=请输入:
if %aa% == 1 goto a
if %aa% == 2 goto b
set/p=你只能输入①或②.<nul&pause>nul&goto 0
:a
for /f "delims=" %%a in ('dir/s/b D:\*.rar')do ren "%%a" "*.rar"
goto 0
:b
for /f "delims=" %%a in ('dir/s/b D:\*.rar')do set/a a+=1&ren "%%a" "*.rar!a!"
goto 0

热心网友时间：2023-10-28 02:17

我以前做过一个文件后缀修改器,
最核心就一句
Name strOld As strNew

strOld是旧文件名
strNew是新文件名,都带后缀的.

你会vb就简单了

热心网友时间：2023-10-28 02:17

首先获取文件的原名 strOrg as String
然后
dim i as integer
dim strTemp() as string
dim strDest as string
strDest=""
strTemp=split(strOrg,".")
if ubound(strTemp)>0 then
if UCase(strTemp(ubound(strTemp)))="RAR" then
For i=0 to ubound(strTemp)-1
strTemp=strTemp+strTemp(i)+"."
Next
strTemp=strTemp+"RAR1"
name strOrg as strTemp
end if
end if

没调试过，随手写的你自己看看

热心网友时间：2023-10-28 02:18

在CMD中用
ren *.rar *.rar1
方便