天極IT資訊短信服務 電腦小技巧 資費：包月5元 手機： 介紹：細處著手，巧處用功。高手和菜鳥之間的差別就是：高手什么都知道，菜鳥知道一些。電腦小技巧收集最新奇招高招，讓你輕松踏上高手之路。

1、創建一個新目錄或文件夾

實現這一步我們可以使用vb中的MkDir語句。

格式：MkDir path

作用：創建一個新的目錄和文件

說明：path 指定所要創建的目錄或文件夾的字符串表達式。Path可以包含驅動器。如果沒有指定驅動器，則MkDir會在當前驅動器上創建新的目錄或文件夾。如果指定的目錄或文件夾已經存在，那么就會產生一個錯誤。

例如: MkDir “c:windows100”

2、修改目錄名

vb中提供了一個Name語句可以實現這些功能。

格式： Name oldpathname As newpathname

作用： 從命名一個文件、目錄或文件夾。

說明： oldpathname字符串表達式，指定已存在的文件名和位置，可以包含目錄或文件夾以及驅動器名。newpathname字符串表達式，指定新的文件名和位置，可以包含目錄或文件夾以及驅動器名。并且oldpathname和newpathname必須位于同一個驅動器上。如果newpathname指定的路徑存在但不同于oldpathname指定的路徑，則Name語句會將文件移動到新的目錄或文件夾，并在必要時從新命名文件.如果newpathname和oldpathname路徑不同而文件名相同,那么Name只會移動文件到新的位置,并保持文件名不變.

Name語句可以將文件從一個目錄或文件夾移動到另一處,但無法移動目錄或文件夾.而且不能在一個已經打開的文件上使用Name,否則會產生錯誤.因此在改變名稱之前,一定要關閉文件.Name參數中不能包括多字符(*)和單字符(?)的通配符.

例如:Name “c:windows100” As “c:windows200”

3、刪除目錄

對于刪除目錄，我們可以使用RmDir語句

格式：RmDir path

作用：刪除一個目錄或文件夾。

說明：path 指定所要刪除的目錄或文件夾的字符串表達式。Path可以包含驅動器。如果沒有指定驅動器，則RmDir會在當前驅動器上刪除目錄或文件夾。如果想要使用RmDir刪除一個含有文件的目錄或文件夾，則會發生錯誤。只有用Kill語句刪除所有文件后，才能用來RmDir刪除目錄或文件夾。

例如：RmDir “c:windows200”

在此我們舉一個例子看一看如何獲得一個文件架下的所有子目錄.下面是源代碼:

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