สอบถามเกี่ยวกับการลบ file.pdf ซึ่งอยู่ในโฟลเดอร์ด้วย VBA

[niwat2811]

รบกวนผู้รู้ ขอสอบถามเกี่ยวกับการลบ file.pdf ซึ่งอยู่ในโฟลเดอร์ด้วย VBA
เช่น ต้องการลบไฟล์ชื่อ 1111.pdf ซึ่งอยู่ในโฟลเดอร์ SavePDF ซึ่งอยู่ที่ D:\SavePDF
โดยป้อนข้อมูล 1111 ที่ Sheet1 เซลล์ I8 แล้วกด Run Macro ที่ชื่อ DeletePDF
แล้วให้ไฟล์ที่ชื่อ 1111.pdf ลบโดยอัตโนมัติครับ

Code: Select all

Sub DeletePDF()
   Dim objFSO, fso
   Dim rs As Range
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set rs = Sheets("Sheet1").Range("I8")
   Set mainFolder = objFSO.GetFolder("D:\SavePDF\")
   For Each sFold In mainFolder.subfolders
      For Each myFile In sFold.Files
         If myFile.Name Like rs & ".pdf" Then
            myFile.Delete
         End If
      Next
   Next
   
   Set objFSO = Nothing
   Set mainFold = Nothing
End Sub

[snasui]

การ Delete File ใช้ Kill Statement ครับ ดูเพิ่มเติมที่ http://msdn.microsoft.com/en-us/library ... 64141.aspx

สำหรับที่ถามมาลองใช้ Kill MyFile แทน MyFile.Delete ดูครับ