set fs = createobject("scripting.filesystemobject")
rem -----------------驱动器操作-----------------
rem 驱动器是否存在
rem msgbox(fs.driveexists("c:\"))
rem 获取驱动器对象
rem set drive = fs.getdrive("c:")
rem 驱动器的可用容量大小
rem msgbox((drive.availablespace / 1024 / 1024 / 1024) & " GB")
rem 驱动器的剩余容量大小
rem msgbox((drive.freespace / 1024 / 1024 / 1024) & " GB")
rem 驱动器的总容量大小
rem msgbox((drive.totalsize / 1024 / 1024 / 1024) & " GM")
rem -----------------文件夹操作-----------------
rem 文件夹是否存在
rem msgbox(fs.folderexists("e:\test"))
rem 创建文件夹
rem set folder = fs.createfolder("e:\test2")
rem 获取文件夹对象
rem set folder = fs.getfolder("e:\test2")
rem 移动文件夹
rem fs.movefolder "e:\test2", "e:\test3"
rem folder.move("e:\test3")
rem 复制文件夹
rem fs.copyfolder "e:\test2", "e:\test3"
rem folder.copy("e:\test3")
rem 删除文件夹
rem fs.deletefolder("e:\test3")
rem folder.delete()
rem 获取文件夹名字
rem msgbox(folder.name)
rem 获取文件夹路径
rem msgbox(folder.path)
rem 获取文件夹大小
rem msgbox((folder.size / 1024 / 1024) & " MB")
rem 获取文件夹文件数量
rem msgbox(folder.files.count)
rem 获取文件对象列表
rem for each file in folder.files
rem msgbox(file.path)
rem next
rem 获取子文件夹数量
rem msgbox(folder.subfolders.count)
rem 获取子文件夹对象列表
rem for each subfolder in folder.subfolders
rem msgbox(subfolder.path)
rem next
rem 获取父文件夹对象
rem set parentfolder = folder.parentfolder
rem msgbox(parentfolder.path)
rem -----------------文件操作-----------------
rem 判断文件是否存在
rem msgbox(fs.fileexists("e:\test2\xxx\a.txt"))
rem 获取文件对象
rem set file = fs.getfile("e:\test2\xxx\a.txt")
rem 获取文件路径
rem msgbox(file.path)
rem 获取文件所在文件夹
rem msgbox(file.parentfolder)
rem 获取文件名字和后缀
rem msgbox(fs.getfilename("e:\test2\xxx\a.txt"))
rem msgbox(file.name)
rem 获取文件扩展名(不包.)
rem msgbox(fs.getextensionname("e:\test2\xxx\a.txt"))
rem 获取文件大小
rem msgbox(file.size & " b")
rem 文件移动
rem fs.movefile "e:\test2\xxx\a.txt", "e:\test2\a.txt"
rem file.move("e:\test2\a.txt")
rem 文件复制
rem fs.copyfile "e:\test2\xxx\a.txt", "e:\test2\a.txt"
rem file.copy("e:\test2\a.txt")
rem 文件删除
rem fs.deletefile("e:\test2\a.txt")
rem file.delete()
rem 文件创建
rem set file = fs.createtextfile("e:\test2\a.txt")
rem 文件打开(读)
rem set file = fs.opentextfile("e:\test2\xxx\a.txt", 1, false)
rem 是否到行的末尾
rem msgbox(file.atendofline)
rem 是否到文件末尾
rem msgbox(file.atendofstream)
rem 读取n个字符
rem msgbox(file.read(5))
rem 文件指针在当前文件的列号
rem msgbox(file.column)
rem 读取1行
rem msgbox(file.readline())
rem 文件指针在当前文件的行号
rem msgbox(file.line)
rem 跳过n个字符
rem file.skip(5)
rem 跳过1行
rem file.skipline()
rem 文件打开(写)
rem set file = fs.opentextfile("e:\test2\a.txt", 2, true)
rem 文件打开(追加)
rem set file = fs.opentextfile("e:\test2\a.txt", 8, true)
rem 写入字符串
rem file.write("xiaohei")
rem 写入一行字符串
rem file.writeline("line 1")
rem 写入n行空行
rem file.writeblanklines(5)
rem 文件关闭
file.close()
set fs = nothing
vbs教程《文件操作》
最新推荐文章于 2024-05-15 21:33:11 发布