、VBA VBAを使用して

Question

内のファイルを削除してどのようにすることができますI：ファイルが存在するかどうかを

1. テスト、そして、もしそうなら
2. はそれを削除しますか？

Answer 1

1.）hereをチェックします。基本的には次の操作を行います。

Function FileExists(ByVal FileToTest As String) As Boolean 
    FileExists = (Dir(FileToTest) <> "") 
End Function 

私は必要なさまざまなエラー処理を把握するためにあなたにそれを残しておきますが、これらはエラー処理の事、私は考えることだろう間にある：

• チェックを空にするために文字列が渡されます。
• ファイルを削除する方法をファイル名に不正な文字を含む文字列/パス

2）を確認してください。 this.を参照してください。基本的にKillコマンドを使用しますが、ファイルが読み取り専用である可能性を考慮する必要があります。ここでは機能があなたのためです：これは対ディレクトリに対して別々に振る舞うべき

• ：

  再び

  Sub DeleteFile(ByVal FileToDelete As String) 
      If FileExists(FileToDelete) Then 'See above   
       ' First remove readonly attribute, if set 
       SetAttr FileToDelete, vbNormal   
       ' Then delete the file 
       Kill FileToDelete 
      End If 
  End Sub 
  

  、私はあなたにエラー処理を残しておきますと、再びこれらは、私は検討したいものです。 ファイル？ユーザーは明示的にディレクトリを削除する必要があることを示す必要がありますか？

• 読み取り専用属性を自動的にリセットするようにするか、ユーザーに読み取り専用属性が設定されていることを通知する必要がありますか？

---

EDIT：必要であれば誰もがそれを修正することができるようにコミュニティのwikiとして、この答えをマーク。

Answer 2

VBでは、ファイルのディレクトリを見つけるために通常はDirです。空白でない場合は存在し、Killを使用してファイルを削除します。

test = Dir(Filename) 
If Not test = "" Then 
    Kill (Filename) 
End If 

Answer 3

以下は、ファイルの存在をテストし、それを削除するために使用できます。

Dim aFile As String 
aFile = "c:\file_to_delete.txt" 
If Len(Dir$(aFile)) > 0 Then 
    Kill aFile 
End If 

Answer 4

Scripting.Runtimeライブラリへの参照を設定し、FileSystemObjectを使用することができます。これにはDeleteFileメソッドとFileExistsメソッドがあります。

MSDNの記事hereを参照してください。

Answer 5

私はおそらくこのために燃え尽きるでしょうが、もしそれを削除しようとしているのであれば、存在のテストのポイントは何ですか？私の主要なペットのおしっこの1つは、「ファイルを削除できませんでした、それは存在しません！」というようなエラーダイアログを投げるアプリです。

On Error Resume Next 
aFile = "c:\file_to_delete.txt" 
Kill aFile 
On Error Goto 0 
return Len(Dir$(aFile)) > 0 ' Make sure it actually got deleted. 

ファイルが最初に存在しない場合は、ミッションが達成されます。

Answer 6

はScripting.Runtimeライブラリへの参照を設定して、FileSystemObjectオブジェクトを使用します。

Dim fso as New FileSystemObject, aFile as File 

if (fso.FileExists("PathToFile")) then 
    aFile = fso.GetFile("PathToFile") 
    aFile.Delete 
End if 

Answer 7

私はそう完全に同意したとBrettskiの答えを、コーディングする別の方法を、

With New FileSystemObject 
    If .FileExists(yourFilePath) Then 
     .DeleteFile yourFilepath 
    End If 
End With 

かもしれません

同じ効果がありますが、（まったくまったくまったく）変数宣言が少なくなります。

FileSystemObjectは本当に便利なツールであり、やりがいを感じる価値があります。それ以外にも、テキストファイルの作成には、実際にはいくつかの人を驚かせるかもしれない従来の方法よりも速い場合もあります。 （少なくとも私の経験では、YMMV）。

Answer 8

ヒント：ファイル名を再使用していますか、削除をすぐに行う必要があることを計画していますか？

いいえ？

あなたはVBAコマンドDEL "C：\ TEMPの\のscratchpad.txt" 火災に取得することができますVBA.Shellを使用して非同期コマンドからをプロンプトを/ Fを：

シェル "DEL" & CHR（34ファイル名の周り）& strPath & CHR（34）& "/ F"、vbHide

注二重引用符（ASCII文字34）：私はあなたがネットワークパスを持っていると仮定し、または長いですよスペースを含むファイル名。

大きなファイルである場合や、低速のネットワーク接続の場合は、ファイアアンドフォースを使用してください。 もちろん、これがうまくいくかどうかは決して分かりません。ただちにVBAを再開すると、ネットワークを待つよりも時間がかかることがあります。