永发信息网

VB编写更改文件名!

答案:3  悬赏:80  手机版
解决时间 2021-07-31 11:14

VB更新文件名。

如: d:/1.exe 点击 command1 后 更改 2.exe .而切不会出现提示/

应该怎么弄。谢谢了。

最佳答案

Private Sub Command1_Click()
Dim path As String
path = "d:\1.exe"


If Dir(path) <> "" Then '判断文件是否存在
Name path As "d:\2.exe" '存在才重命名,防止出错
End If
End Sub

全部回答
Private Sub Command1_Click() FileCopy "c:\1.txt", "d:\2.txt" End Sub

Private Sub Command1_Click() Name "d:\1.exe" As "d:\2.exe" End Sub

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
求救!完美国际密保卡忘了该怎么办
济源市济源精修手机哪位知道具体地址啊
求QQ个性分组
角质素是什么,脸上所谓的角质是什么样的?
120点券换得什么?
DNF48J没有完成觉醒49J还能做嘛?
为什么十六岁男孩那么冷…?为什么?
连云港新浦区现在上网为什么要身份证?什么时
索菲特酒店十点下班有没有夜班车
阿城区哈尔滨乔丹体育(环城北路)地址是什么,
酱红色 女式西服无领的里面搭配什么颜色的衣
dnf活动为什么我家没有
赤壁市咸宁桑夏太阳能(河北大道)地址在哪里啊
为什么我下载的软件点击启动使用就出现这个问
遇见王沥川台词,遇见王沥川里小秋躲在衣柜里
推荐资讯
六年级数学问题?????
我的牧场为什么由九级变成零级
淅川县南阳万家乐热水器地址在什么地方,想今
.韩非子的思想在秦始皇时期有何体现?
最近在朋友方面遇到些问题,希望大家帮帮忙
进入QQ对战平台进不去,提示看图片,这是咋了
新洲区武汉中阳虾城地址有谁知道?有点事想过
江汉区武汉江汉区城管局厕管站地址在哪,我要
福彩15选5中奖按顺序排列不,还有它中几个号
手机顽童的官网是啥???
一只猪与一只企鹅一同关在冰箱里!第二天企鹅
今年过生日都流行按阳历过么?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?