用ViusaBasicl 命令操作目录解析

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

href="http://www.yesky.com/324/1788824.shtml" target=_blank>查看本文来源