遗失的星空

导航

VBS杂记

Set fso = CreateObject("Scripting.FileSystemObject")

fso.FileExists("folder")

fso.CopyFile("filePath","D:\folder\",OverwriteExisting)
fso.MoveFile("filePath","D:\folder\",OverwriteExisting)

Set ttFile = fso.CreateTextFile("folder",true)

Set ttFile = fso.OpenTextFile("folder",foreading|forwriting|forappending)

ttFile.close

read = ttFile.ReadLine
read = ttFile.ReadAll

ttFile.WriteLine("")

Set ttFile = fso.GetFile("folder")
ttFile.delete

ttFile.AtEndOfStream

fso.IsRootFolder

Set ttFile = fso.GetFolder("folder")

Set ttFile = fso.CreateFolder("folder")

Set ttFile = fso.GetFolder("")
ttFile.deletefolder

ttFile.size(type,DateCreated,DateLastAccessed,DateLastModified,name,ShortPath,path)

posted on 2012-02-15 16:05  遗失的星空  阅读(160)  评论(0编辑  收藏  举报