如何给文件重命名!如a.bsd 改为b.yu 如何给文件重命名!如a.bsd 改为b.yu要求文件不存在时跳到下条语句继续执行! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 API 中有一个这方面的函数,你可以去查查。 http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=18804 CopyFile VB声明 Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long 说明 复制文件。与vb的filecopy命令相似 返回值 Long,非零表示成功,零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpExistingFileName String,源文件名 lpNewFileName String,目标文件名 bFailIfExists Long,如果设为TRUE(非零),那么一旦目标文件已经存在,则函数调用会失败。否则目标文件被改写 DeleteFile VB声明 Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long 说明 删除指定文件 返回值 Long,非零表示成功,零表示失败。会设置GetLastError 参数表 参数 类型及说明 lpFileName String,欲删除文件的名字 注解 与vb的kill语句相似,在windows 95下使用这个函数要小心——即使文件当前正由一个应用程序打开,该函数也会将其删除 简单:on error resume nextname "C:\a.bsd" as "C:\b.yu" on error goto catch...name oldname as newname...exit subcatch: resume next这个这么简单,怎么没人用啊!? name a.bsd as b.yukill a.bsd就可以了!!!!!!!!!!!!! Dim OldName As StringDim NewName As StringOldName="a.bsd"NewName="b.yu"Name OldName As NewName就行了 vb 数学公式问题 用API拦截访问USB VB中如何不用遍历的方法取得sqlite数据库的值? 高手帮我看看:VSFlexGrid 的 DataSource 和 FormatString 属性问题 谁来帮下忙呀! 菜鸟问题:如何把文本框中的文本放到剪贴板上? 如何用DAO3.6得于一个表的列数 怎样退出应用程序呢? vb中怎样显示copy文件时的进度条呀? 关于MSFlexGrid 控件的问题(不好意思没分了,不过很简单) 一个小问题,回答者有分. 基础问题.
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
说明
复制文件。与vb的filecopy命令相似
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpExistingFileName String,源文件名
lpNewFileName String,目标文件名
bFailIfExists Long,如果设为TRUE(非零),那么一旦目标文件已经存在,则函数调用会失败。否则目标文件被改写
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
说明
删除指定文件
返回值
Long,非零表示成功,零表示失败。会设置GetLastError
参数表
参数 类型及说明
lpFileName String,欲删除文件的名字
注解
与vb的kill语句相似,在windows 95下使用这个函数要小心——即使文件当前正由一个应用程序打开,该函数也会将其删除
on error resume next
name "C:\a.bsd" as "C:\b.yu"
...
name oldname as newname
...
exit sub
catch:
resume next这个这么简单,怎么没人用啊!?
kill a.bsd
就可以了!!!!!!!!!!!!!
Dim NewName As StringOldName="a.bsd"
NewName="b.yu"Name OldName As NewName就行了