การลบไฟล์ใน VBA

ใช้ VBA ฉันจะทำอย่างไร:

1. ทดสอบว่ามีไฟล์อยู่หรือไม่และถ้าเป็นเช่นนั้น
2. ลบมัน?

1. ) ตรวจสอบที่นี่ โดยทั่วไปทำสิ่งนี้:

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

ฉันจะปล่อยให้คุณพิจารณาการจัดการข้อผิดพลาดต่างๆที่จำเป็น แต่สิ่งเหล่านี้เป็นหนึ่งในข้อผิดพลาดในการจัดการสิ่งที่ฉันกำลังพิจารณา:

• ตรวจสอบสตริงว่างที่กำลังส่ง
• ตรวจสอบสตริงที่มีอักขระที่ผิดกฎหมายในชื่อไฟล์ / เส้นทาง

2. ) วิธีการลบไฟล์ ดูที่นี่ โดยทั่วไปใช้คำสั่ง 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

อีกครั้งฉันจะปล่อยให้คุณจัดการข้อผิดพลาดและสิ่งเหล่านี้คือสิ่งที่ฉันพิจารณาอีกครั้ง:

• สิ่งนี้ควรทำงานแตกต่างกันไปสำหรับไดเร็กทอรีกับไฟล์หรือไม่? ผู้ใช้ควรต้องระบุอย่างชัดเจนว่าต้องการลบไดเร็กทอรีหรือไม่?

• คุณต้องการให้รหัสรีเซ็ตแอตทริบิวต์แบบอ่านอย่างเดียวโดยอัตโนมัติหรือผู้ใช้ควรได้รับการบ่งชี้บางอย่างว่ามีการตั้งค่าแอตทริบิวต์แบบอ่านอย่างเดียวหรือไม่?

แก้ไข: ทำเครื่องหมายคำตอบนี้เป็นวิกิชุมชนเพื่อให้ทุกคนสามารถแก้ไขได้หากจำเป็น

อีกวิธีหนึ่งในการเขียนโค้ดคำตอบของ Brettski ซึ่งฉันเห็นด้วยทั้งหมดอาจเป็น

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

เอฟเฟกต์เดียวกัน แต่มีการประกาศตัวแปรน้อยกว่า (ดีไม่มีเลย)

FileSystemObject เป็นเครื่องมือที่มีประโยชน์จริงๆและคุ้มค่าที่จะได้เป็นมิตรกับ นอกเหนือจากสิ่งอื่นใดสำหรับการเขียนไฟล์ข้อความบางครั้งอาจเร็วกว่าทางเลือกเดิมซึ่งอาจทำให้บางคนประหลาดใจ (จากประสบการณ์ของฉันอย่างน้อย YMMV)

ฉันอาจจะได้รับความเดือดร้อนจากสิ่งนี้ แต่จุดทดสอบการดำรงอยู่คืออะไรถ้าคุณจะลบมัน? หนึ่งในสัตว์เลี้ยงตัวหลักของฉันคือแอปที่ส่งกล่องโต้ตอบข้อผิดพลาดบางอย่างเช่น "ไม่สามารถลบไฟล์ได้ไม่มีอยู่จริง!"

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.

ถ้าไฟล์ไม่มีตั้งแต่แรกภารกิจก็สำเร็จ!

สิ่งต่อไปนี้สามารถใช้เพื่อทดสอบการมีอยู่ของไฟล์จากนั้นจึงจะลบออก

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

ใน VB โดยปกติDirจะค้นหาไดเร็กทอรีของไฟล์ หากไม่ว่างเปล่าแสดงว่ามีอยู่แล้วใช้Killเพื่อกำจัดไฟล์

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

ตั้งค่าการอ้างอิงไปยังไลบรารี Scripting.Runtimeจากนั้นใช้ FileSystemObject:

Dim fso as New FileSystemObject, aFile as File

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

นี่คือเคล็ดลับ: คุณกำลังใช้ชื่อไฟล์ซ้ำหรือวางแผนที่จะทำอะไรบางอย่างที่ต้องลบทันที?

ไม่มี?

คุณสามารถรับ VBA เพื่อเริ่มคำสั่ง DEL "C: \ TEMP \ scratchpad.txt" / F จากพรอมต์คำสั่งแบบอะซิงโครนัสโดยใช้ VBA.Shell:

เชลล์ "DEL" & chr (34) & strPath & chr (34) & "/ F", vbHide

สังเกตเครื่องหมายอัญประกาศคู่ (อักขระ ASCII 34) รอบ ๆ ชื่อไฟล์: ฉันสมมติว่าคุณมีเส้นทางเครือข่ายหรือชื่อไฟล์แบบยาวที่มีช่องว่าง

หากเป็นไฟล์ขนาดใหญ่หรืออยู่ในการเชื่อมต่อเครือข่ายที่ช้าการใช้ไฟและการลืมคือวิธีที่ต้องทำ แน่นอนคุณไม่เคยเห็นว่ามันได้ผลหรือไม่ แต่คุณกลับมาใช้งาน VBA ต่อทันทีและมีบางครั้งที่ดีกว่ารอเครือข่าย

คุณสามารถตั้งค่าการอ้างอิงไปยังไลบรารี Scripting.Runtime จากนั้นใช้ FileSystemObject มีเมธอด DeleteFile และเมธอด FileExists

ดูบทความ MSDN ที่นี่