[vba] VBA에서 파일 삭제

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

다시 말하지만, 오류 처리는 여러분에게 맡기고 다음과 같은 사항을 고려해야합니다.

• 디렉토리와 파일에 대해 다르게 동작해야합니까? 사용자가 디렉토리를 삭제할 것인지 명시 적으로 표시해야합니까?

• 코드가 읽기 전용 속성을 자동으로 재설정하도록 하시겠습니까? 아니면 사용자에게 읽기 전용 속성이 설정되어 있다는 표시를 받아야합니까?

편집 :이 답변을 커뮤니티 위키로 표시하여 필요한 경우 누구나 수정할 수 있습니다.

답변

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

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 

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

Dim fso as New FileSystemObject, aFile as File

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