1、创建一个新目录或文件夹
实现这一步我们可以使用vb中的MkDir语句。
格式：MkDir
path
作用：创建一个新的目录和文件
说明：path
指定所要创建的目录或文件夹的字符串表达式。Path可以包含驱动器。如果没有指定驱动器，则MkDir会在当前驱动器上创建新的目录或文件夹。如果指定的目录或文件夹已经存在，那么就会产生一个错误。
例如:
MkDir
“c:\windows\100”
2、修改目录名
vb中提供了一个Name语句可以实现这些功能。
格式：
Name oldpathname As newpathname
作用： 从命名一个文件、目录或文件夹。
说明：
oldpathname字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹以及驱动器名。newpathname字符串表达式，指定新的文件名和位置，可以包含目录或文件夹以及驱动器名。并且oldpathname和newpathname必须位于同一个驱动器上。如果newpathname指定的路径存在但不同于oldpathname指定的路径，则Name语句会将文件移动到新的目录或文件夹，并在必要时从新命名文件.如果newpathname和oldpathname路径不同而文件名相同,那么Name只会移动文件到新的位置,并保持文件名不变.
Name语句可以将文件从一个目录或文件夹移动到另一处,但无法移动目录或文件夹.而且不能在一个已经打开的文件上使用Name,否则会产生错误.因此在改变名称之前,一定要关闭文件.Name参数中不能包括多字符(*)和单字符(?)的通配符.
例如:Name
“c:\windows\100” As
“c:\windows\200”
3、删除目录
对于删除目录，我们可以使用RmDir语句
格式：RmDir
path
作用：删除一个目录或文件夹。
说明：path
指定所要删除的目录或文件夹的字符串表达式。Path可以包含驱动器。如果没有指定驱动器，则RmDir会在当前驱动器上删除目录或文件夹。如果想要使用RmDir删除一个含有文件的目录或文件夹，则会发生错误。只有用Kill语句删除所有文件后，才能用来RmDir删除目录或文件夹。
例如：RmDir
“c:\windows\200”
在此我们举一个例子看一看如何获得一个文件架下的所有子目录.下面是源代码:
Private Sub searchdir()
Dim spath As String, sdir As String
Dim
booldir As Boolean '是否有子目录的标志
booldir = False '初始化标志
spath =
Dir1.Path '选择路径
If Right(spath, 1) <> "\" Then
'判断路径最后是否以\结尾
spath = spath &; "\" '不是,则加上
sdir =
Dir(spath & "*.*", vbDirectory) '得到当前路径下的所有文件和目录
While sdir
<> "" '如果不为空
If sdir <> "." And sdir <> ".."
Then '并且不是这两种文件夹
booldir = True '那么,该目录下有子目录
MsgBox
"该目录下有子目录:" & sdir '显示信息
End If
sdir =
Dir()
Wend
If Not booldir Then '标志为假,该目录下没有子目录
MsgBox
"该目录下没有子目录"
End IF
End IF
End Sub
|
