对于可删除的驱动器,不需要将媒体插入其中,它就可以在Drives集合中显示出来。 下面的代码举例说明了如何获得 Drives 集合,以及如何用 For Each...Next 语句来访问该集合中的每个Drive: Sub ShowDriveList Dim fs, d, dc, s, n Set fs = CreateObject("scr ipting.FileSystemObject") Set dc = fs.Drives For Each d in dc s = s & d.Drive
代码如下:<% ‘建立文件夹函数 Function CreateFolder(strFolder)’参数为相对路径 ‘首选判断要建立的文件夹是否已经存在 Dim strTestFolder,objFSO strTestFolder = Server.Mappath(strFolder) Set objFSO = CreateObject(“scr ipting.FileSystemObject”) ‘检查文件夹是否存在 If not objF