关于文件及文件夹的操作-01
2013-12-09 20:03
155 查看
解决①当前文件夹的完整路径;②更改文件名或文件夹名称;③查找文件或文件夹(文件夹也可以)
Option Explicit '--------------------------------------------------------------------------------------- ' Procedure : VBATest10 ' Author : Administrator ' Date : 2013-12-9 18:51 ' Purpose : 验证操作文件及文件夹的方法(通过函数实现目的) '--------------------------------------------------------------------------------------- ' Sub VBATest10() '显示当前文件夹的完整路径 Dim myDrive As String 1 myDrive = Left(CurDir$, 1) 2 Debug.Print myDrive & ":" '默认情况下CurDir返回的是Variant(变体)型变量,如果想让其返回字符串型数据,则需在其后面紧跟一 '个$符号(其恰好是字符串变量的缩写形式). '更改文件或文件夹的名称函数 '就是Name Old_filename As New_filename ,其中新旧文件名字符串支持带路径!! '查找文件或文件夹 3 If Len(Dir("C:\xisii.txt")) = 0 Then '或 if dir("C:\xisii.txt")="" then 也可以 ' If Dir("C:\xieui") Is Nothing Then 这句话为什么通不过?因为 Is Nothing是针对对象,而dir是函数,返回的是变量. 4 MsgBox "您需要的文件未找到!" 5 End If 6 Debug.Print VarType(Dir("c:\xisii.txt")) '返回变量类型,以数字形式体现,本例为8,代表为字符串型. Dim myFile As String 7 myFile = Dir("E:\*.*") 'dir函数的返回值就是string,所以加不加$均可以,故完全可以不加$ 8 Do While myFile <> "" 9 Debug.Print myFile '如果此行与下行代码交换顺序,则会导致少显示1个文件,原因在于一旦 '执行了dir$语句则会进行下一次查找就把上次的查找结果给覆盖了. 10 myFile = Dir 11 Loop End Sub
相关文章推荐
- Qt关于文件和文件夹的操作
- Android中关于删除文件以及文件夹的操作
- 关于os模块中的文件夹遍历,文件操作,文件的创建和修改时间的用法
- asp.net中关于文件夹和文件的一些基本操作
- c++关于文件夹(文件)的相关操作_findfirst,_findnext和_findclose方法
- Qt关于文件和文件夹的操作
- SharePoint Client Object应用 包含关于操作文件和文件夹的代码
- c# 关于对文件和文件夹的操作
- 关于文件及文件夹的相关操作
- Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
- 关于:SQL 以前的某个程序安装已在安装计算机上创建挂起的文件操作 解决办法
- JAVA对文件和文件夹的操作
- C/C++中关于遍历文件夹的操作
- net8:简易的文件磁盘管理操作一(包括文件以及文件夹的编辑创建删除移动拷贝重命名等)
- 一个关于文件操作的类(功能还是有点弱)
- fork创建子进时关于文件操作(fwrite、fread)的那些事
- PHP----文件操作5-----文件(文件夹)的创建和删除
- Linux常见的操作(一) ->常见文件类型, 新建和删除文件或文件夹
- iOS关于操作本地文件详解
- VC++ MFC文件,文件夹操作整理