删除单个 .txt 文件（如果存在于 Visual Basic 中）？

Question

我一直在试图弄清楚如何删除一个不断更改名称的 .txt 文件，除了前 4 个 ex：THISTEXT-123-45.txt 其中 THISTEXT 保持不变但 -123-45 发生变化。

我找到了检测方法，但是不知道怎么删除。

Dim paths() As String = IO.Directory.GetFiles("C:\", "THISTEXT*.txt")
If paths.Length > 0 Then

有人知道删除那个特殊 .txt 文件的命令行吗？ 我在 Visual Studio 2013 框架 3.5 上使用 Visual Basic。

Answer 1

使用 System.IO 的 Delete 方法。

假设你有 C:\

的写权限

Dim FileDelete As String

FileDelete = "C:\testDelete.txt"

 If System.IO.File.Exists( FileDelete ) = True Then
   System.IO.File.Delete( FileDelete )
   MsgBox("File Deleted")
End If

删除文件非常简单 - 但很危险！因此，在尝试此代码时要非常小心。

编辑 要删除所有文件，请使用 *（星号），后跟文件扩展名

示例C:\*.txt"

对于多个文件

Dim FileDelete As String

FileDelete = "C:\"

For Each FileDelete  As String In IO.Directory.GetFiles(FileDelete & "THISTEXT*.txt")
    File.Delete(FileDelete)
Next

Answer 2

如果您阅读 GetFiles 上的 MSDN 页面，您会意识到您的路径数组中有文件名和路径。然后，您可以遍历删除匹配项的数组。

Dim x as Integer
Dim paths() as String = IO.Directory.GetFiles("C:\", "THISTEXT*.txt")
If paths.Length > 0 Then
    For x = 0 to paths.Length -1
        IO.File.Delete(paths(x))
    Next
End If

Answer 3

根据您提供给Omar'sanswer 的反馈，您的文件路径和文件名似乎是分开的。

您不能提供它们以逗号分隔，因为逗号表示传递给子例程或函数的单独参数。

要解决此问题，您需要将它们连接起来，例如：

Dim fileName As String = "foo.txt"
Dim filePath As String = "C:\"

Dim FileToDelete As String = fileName + filePath

删除单个.*txt 文件（如果存在）：

If (deleteFile("C:\")) Then 
    MsgBox("File deletion successful")
Else
        MsgBox("File couldn't be deleted with the following error: " + exception)
End If

也可以连接：

If (deleteFile("C:\") Then
    MsgBox("File deletion successful")
Else
        MsgBox("File couldn't be deleted with the following error: " + exception)
End If

---

Dim exception As String 'Place this at the beginning of your app's class.

    Dim path As String = "C:\"
    If (deleteFile(path)) Then
        MsgBox("File deletion successful")
    Else
        MsgBox("File couldn't be deleted with the following error: " + exception)
    End If

Private Function deleteFile(ByVal dir) As Boolean
    Dim fileToRemove As String
    Try
        Dim paths() As String = IO.Directory.GetFiles(dir, "THISTEXT*.txt")
        For i As Integer = 0 To paths.Length
            fileToRemove = paths(i).ToString
            System.IO.File.Delete(fileToRemove)
            If (Not System.IO.File.Exists(fileToRemove)) Then
                Return True
            Else
                exception = "Unknown error."
                Return False
            End If
        Next
        Return False
    Catch ex As Exception
        exception = ex.Message
        Return False
    End Try
    Return False
End Function

上述函数检查文件是否存在，如果存在则尝试删除它。如果文件无法删除，或者发生错误（已处理），函数返回False。

Answer 4

简单示例：

    For Each path As String In IO.Directory.GetFiles("C:\", "THISTEXT*.txt")
        Try
            System.IO.File.Delete(path)
        Catch ex As Exception
            MessageBox.Show(path, "Unable to Delete File")
        End Try
    Next