2012-01-01から1ヶ月間の記事一覧
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetSpecialFolder(0) WScript.Echo fso.GetSpecialFolder(1) WScript.Echo fso.GetSpecialFolder(2)
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetParentFolderName(".") WScript.Echo fso.GetParentFolderName("foo.txt") WScript.Echo fso.GetParentFolderName("..") WScript.Echo fso.GetParentFolderName("c:\foo\bar\baz")
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(".") WScript.Echo f WScript.Echo f.Path
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetFileName("foo.txt") WScript.Echo fso.GetFileName("foo\bar\baz")
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("2012012700.vbs") WScript.Echo f WScript.Echo f.Path
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetExtensionName(".") WScript.Echo fso.GetExtensionName("foo.c") WScript.Echo fso.GetExtensionName("foo.c.d") WScript.Echo fso.GetExtensionName("c:\bar\foo.c")
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetDriveName("c") ' 空白に WScript.Echo fso.GetDriveName("c:") WScript.Echo fso.GetDriveName("c:\") WScript.Echo fso.GetDriveName("c:\foo") WScript.Echo fso.GetDriveName…
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetDrive("c") WScript.Echo fso.GetDrive("c:") WScript.Echo fso.GetDrive("c:\") 'WScript.Echo fso.GetDrive("c:\foo") 'WScript.Echo fso.GetDrive("y:") 使用できないデバイス…
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetBaseName(".") WScript.Echo fso.GetBaseName("..") WScript.Echo fso.GetBaseName("2012012300.vbs") WScript.Echo fso.GetBaseName(".\2012012300.vbs") WScript.Echo fso.GetB…
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.GetAbsolutePathName(".") WScript.Echo fso.GetAbsolutePathName("..") WScript.Echo fso.GetAbsolutePathName("..\..\..\..\..\..") どんなに上にたどっても c:\ までで止まるらし…
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.DriveExists("c") WScript.Echo fso.DriveExists("c:") コロンあってもなくても良い?
Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateFolder("foo") fso.DeleteFolder("foo") Set f = fso.CreateTextFile("foo") f.Close fso.DeleteFolder("foo") DeleteFolder でファイルは消せないのかな?ファイルを指定しても、エラーも…
Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile("foo") Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateFolder("foo") fso.DeleteFile("foo") エラーは発生しないのに、Folder は削除されないらしい。そういうもの…
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateTextFile("foo") f.WriteLine "Hello!" f.Close
Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateFolder("c:\foo")
Set fso = CreateObject("Scripting.FileSystemObject") Const dir = "c:\foo\" fso.CreateFolder(dir) fso.CopyFolder ".", dir 'fso.CopyFolder "*", dir フォルダは作成されるのに、なぜかエラーが発生 フォルダ内のファイルはコピーしないの???
Set fso = CreateObject("Scripting.FileSystemObject") 'fso.CopyFile("2012011500.vbs", "foo") fso.CopyFile "2012011500.vbs", "foo" 括弧つきだとダメらしい…
Set fso = CreateObject("Scripting.FileSystemObject") WScript.Echo fso.BuildPath(".", "foo") WScript.Echo fso.BuildPath("", "foo") WScript.Echo fso.BuildPath("\", "foo") 末尾の「\」など考慮した文字列操作をやっているだけなのかな?
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(".") WScript.Echo f.Attributes WScript.Echo f.DateCreated WScript.Echo f.DateLastAccessed WScript.Echo f.DateLastModified WScript.Echo f.Drive WScript.Echo f.Files.…
Set fso = CreateObject("Scripting.FileSystemObject") Const dir = "foo" If fso.FolderExists(dir) Then fso.DeleteFolder(dir) End If fso.CreateFolder(dir) Const dst = "bar" If fso.FileExists(dst) Then 'fso.DeleteFolder(dst) fso.DeleteFile(dst…
Set fso = CreateObject("Scripting.FileSystemObject") Const dir = "foo" If fso.FolderExists(dir) Then fso.DeleteFolder(dir) End If fso.CreateFolder(dir) fso.GetFolder(dir).Delete File オブジェクトにも同じメソッドあり
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(".") Const dir = "c:\foo" If fso.FolderExists(dir) Then fso.DeleteFolder(dir) End If 'fso.CreateFolder(dir) f.Copy(dir) File オブジェクトにも同じメソッドあり 「Cons…
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("2012010900.vbs") WScript.Echo f.Attributes WScript.Echo f.DateCreated WScript.Echo f.DateLastAccessed WScript.Echo f.DateLastModified WScript.Echo f.Drive WScript.Ec…
Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile("foo1") Set f = fso.GetFile("foo1") Set ts =…
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("foo") f.Move("bar")
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("foo") f.Delete() 'f.Delete(True)
Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile("2012010500.vbs") f.Copy("foo")
Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName("c:")) WScript.Echo d.AvailableSpace WScript.Echo FormatNumber(d.AvailableSpace/1024, 0) WScript.Echo d.DriveLetter Select Case d.DriveType Case 0: …
Set d = CreateObject("Scripting.Dictionary") d.Add "a", "アテネ" d.Add "b", "ベオグラード" d.Add "c", "カイロ" WScript.Echo "d.Count : " & d.Count WScript.Echo "a : " & d.Item("a") WScript.Echo "Exists d : " & d.Exists("d") WScript.Echo "d…
Set d = CreateObject("Scripting.Dictionary") d.Add "a", "アテネ" d.Add "b", "ベオグラード" d.Add "c", "カイロ" WScript.Echo d.Count d.RemoveAll() WScript.Echo d.Count