■ファイルの作成サンプル
Dim PATH : PATH = "C:\temp\sample.txt"
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
'--- ファイル作成 ---
Dim oFILE : Set oFILE = oFS.CreateTextFile(PATH, True)
oFILE.WriteLine "Hello File!"
oFILE.Close
Set oFILE = Nothing
Set oFS = Nothing
■ファイルの削除サンプル
Dim PATH : PATH = "C:\temp\sample.txt"
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
'--- ファイル削除 ---
If oFS.FileExists(PATH) Then
oFS.DeleteFile PATH
End If
Set oFS = Nothing
コメント
コメントを投稿