ファイル ファイル削除

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ファイル ファイル削除]

Option Explicit

Sub FSOを使用しファイルを削除() '********************************* 'FSOを使用しファイルを削除 '********************************* Dim objFSO As Object, DelPath As String, DelFile As String DelPath = ThisWorkbook.Path DelFile = "DEL1.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") On Error Resume Next objFSO.DeleteFile DelPath & "\" & DelFile On Error GoTo 0 Set objFSO = Nothing End Sub
Sub Killを使用しファイルを削除() '********************************* 'Killを使用しファイルを削除 '********************************* Dim DelPath As String, DelFile As String DelPath = ThisWorkbook.Path DelFile = "DEL2.txt" On Error Resume Next Kill DelPath & "\" & DelFile On Error GoTo 0 End Sub
Sub ファイルを削除(パス As String, ファイル名 As String) '************************************** 'ファイルを削除 引数指定 'パスの最後に[\]を付けない '************************************** On Error Resume Next Kill パス & "\" & ファイル名 On Error GoTo 0 End Sub





Production Japan Import Application. Since 1998