FSO操作全集
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
变量调用
getfso=fso.DriveExists("g:\")
getfso=fso.GetDrive(
"c:"
)
getfso=fso.GetDriveName(
"c:\网络程序员伴侣"
)
Set
getfso=fso.Drives
getfso语句进行穷尽操作,支持所有[驱动器对象属性],并具有Count和Item属性
Set
fso=
Nothing
驱动器对象操作
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
getfso=fso.GetDrive(
"c:"
).FileSystem
getfso=fso.GetDrive(
"c:"
).DriveType
getfso=fso.GetDrive(
"c:"
).DriveLetter
getfso=fso.GetDrive(
"c:"
).IsReady
getfso=fso.GetDrive(
"c:"
).SerialNumber
getfso=fso.GetDrive(
"c:"
).ShareName
getfso=fso.GetDrive(
"c:"
).VolumeName
getfso=fso.GetDrive(
"c:"
).Path
getfso=fso.GetDrive(
"c:"
).RootFolder
getfso=fso.GetDrive(
"c:"
).AvailableSpace
getfso=fso.GetDrive(
"c:"
).FreeSpace
getfso=fso.GetDrive(
"c:"
).TotalSize
Set
fso=
Nothing
系统文件夹操作
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
getfso=fso.GetFolder("c:\")
getfso=fso.FolderExists(
"e:\网络程序员伴侣"
)
getfso=fso.GettempName
getfso=fso.GetparentFolderName(
"e:\网络程序员伴侣"
)
fso.CreateFolder
"c:\windows\新创建的文件夹路径及名称"
fso.MoveFolder
"c:\windows\许移动或改名的文件夹"
,
"c:\windows\移动路径和新的文件夹名"
fso.DeleteFolder
"c:\windows\要删除的目录名"
,false/true
fso.CopyFolder
"c:\windows\须复制的目录名"
,
"c:\windows\得到付值内容的目录名"
,false/true
Set
getfso=fso.Folders
Set
getfso=fso.Files
Set
fso=
Nothing
文件夹对象操作
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
getfso=fso.GetFolder(
"c:\windows"
).Name
getfso=fso.GetFolder(
"c:\windows"
).ShortName
getfso=fso.GetFolder(
"c:\windows"
).Attributes
getfso=fso.GetFolder(
"c:\windows"
).Size
getfso=fso.GetFolder(
"c:\windows"
).Type
getfso=fso.GetFolder(
"c:\windows"
).Path
getfso=fso.GetFolder(
"c:\windows"
).ShortPath
getfso=fso.GetFolder(
"c:\windows"
).Drive
getfso=fso.GetFolder(
"c:\windows"
).Files.count
getfso=fso.GetFolder(
"c:\windows"
).SubFolders.count
getfso=fso.GetFolder(
"c:\windows"
).ParentFolder
getfso=fso.GetFolder(
"c:\windows"
).IsRootFolder
getfso=fso.GetFolder(
"c:\windows"
).DateCreated
getfso=fso.GetFolder(
"c:\windows"
).DateLastAccessed
getfso=fso.GetFolder(
"c:\windows"
).DateLastModified
fso.GetFolder(
"c:\windows"
).CreateTextFile
"新建的文件名及后缀"
,true/false,true/false
fso.GetFolder(
"c:\windows\要删除的目录名"
).Delete true
fso.GetFolder(
"c:\windows\要移动改名的目录名"
).Move
"文件夹将要移动到的路径及自定义文件夹名称"
fso.GetFolder(
"c:\windows\旧目录"
).Copy
"复制到路径"
,true/false
Set
fso=
Nothing
系统文件操作
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
getfso=fso.GetFile(
"c:\windows\help.html"
)
getfso=fso.GetFileName(
"c:\windows\help.html"
)
getfso=fso.GetExtensionName(
"c:\windows\help.html"
)
getfso=fso.FileExists(
"c:\windows\文件名.html"
)
fso.MoveFile
"要移动及改名的原文件路径"
,
"移动到某路径及自定义新文件名"
fso.DeleteFile
"c:\windows\要删除的文件所在路径"
,false/true
fso.CopyFile
"c:\windows\须复制的旧文件.txt"
,
"c:\windows\复制后的文件名.jpg"
,false/true
fso.OpenTextFile
"c:\windows\desktop\要打开操作的文件名称.txt"
,1/2/8,true/false,0/-1/-2
fso.CreateTextFile
"c:\windows\desktop\新建的文件名称.txt"
,false/true,false/true
Set
fso=
Nothing
文件对象操作
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).Name
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).ShortName
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).Attributes
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).Size
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).Type
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).Path
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).ShortPath
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).Drive
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).ParentFolder
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).DateCreated
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).DateLastAccessed
getfso=fso.GetFile(
"c:\windows\笔记本.txt"
).DateLastModified
fso.GetFile(
"c:\windows\笔记本.txt"
).Copy
"复制到的路径和文件名"
,true/false
fso.GetFile(
"c:\windows\笔记本.txt"
).Delete true
fso.GetFile(
"c:\windows\笔记本.txt"
).Move "移动到的路径及自定义文件名
Set
fso=
Nothing
文件对象读写操作
on error resume next
Set
fso=CreateObject(
"scripting.FileSystemObject"
)
set link1=fso.GetFile(
"c:\windows\笔记本.txt"
).OpenAsTextStream(1/2/8,0/-1/-2)
open1=link1.AtendOfline
open2=link1.AtendOfstream
open3=link1.Column
open4=link1.Line
open5=link1.Read(10)
open6=link1.ReadAll
open7=link1.ReadLine
open8=link1.Write
"字符串"
open9=link1.WriteLine
"字符"
open10=link1.WriteBlankLines 10
open11=link1.Skip 10
open12=link1.SkipLine
link1.Close
Set
fso=
Nothing
该文章在 2020/9/12 11:06:54 编辑过