Vba 를 사용하여, 어떻게 해야 합니까.
그렇다면, 1. 테스트 서버인지에 파일이 존재합니다. 2. 삭제하시겠습니까 it?
1). 확인란 [here] [1]. 기본적으로 이 일을:
Function FileExists(ByVal FileToTest As String) As Boolean
FileExists = (Dir(FileToTest) <> "")
End Function
2.) 파일 삭제 방법. 이. 기본적으로 보면 확장하지만 Kill 명령을 사용하여 파일을 읽기 전용 가능성에 대해 할 수 있다. # 39 의 here& 기능을 제공합니다.
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
/Dev/raw/raw200 위한 파일? 이 다르게 동작할 디렉터리입니다 vs. 사용자가 할 필요가 있는 것인지 명시적으로 나타내십시오 디렉터리입니다 삭제하시겠습니까?
진행하시겠습니까 코드를 수정하여 읽기 전용 속성을 부여해야 한다고 자동으로 재설정됩니다 또는 사용자가 일종의 있음을 읽기 전용 특성을 설정되었습니다?
[1]: http://www.tek-tips.com/faqs.cfm = 1936년 fid?
그렇지 않으면 답할 수 있는 또 다른 방법으로는 코드 s # 39 를 완전히 동의할 수 있는, 내가 Brettski&.
With New FileSystemObject
If .FileExists(yourFilePath) Then
.DeleteFile yourFilepath
End If
End With
하지만 거의 동일한 효과를 (뭐, 전혀 없음) 변수 선언을.
참으로 유용한 도구, 그리고 이 피레시스티모비치 친화적임 가져오는 함께 했다. 실제로 다른 사항은요, 텍스트 파일을 별도로 쓰는 것보다 빠를 수 있는 대안이 될 수 있다는 기존 소수의 사람들이 깜짝 놀라게 한다. (적어도 내 경험상 이메프).
아마도 이 있지만, ll get 골조 i& # 39 의 존재에 대한 테스트 요점이지 지정하십시오. 잠깐 삭제하시겠습니까 경우 it? 짜증나게 하고 있는 주요 pet 는 app 중 하나에 오류가 대화상자의 ", 이 같은 일이 없습니다! " 파일을 삭제할 수 없습니다.
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.
아냐?
Vba 를 명령, 델 " C:\TEMP\scratchpad.txt" 불지옥의 얻을 수 있습니다. 비동기적으로 사용하여 /f 명령 프롬프트에서 6b.셸:
델 " 쉘로 "; &. & 크레 (34). 스트라파스 &. & 크레 (34). ". /F 바바이드 " < /CODE>;
주변에 파일_이름 참고합니다 큰따옴표 (ascii 문자 34). # 39 m, ve got a # 39 you& i& 것으로 보고, 네트워크 경로, 또는 긴 파일 이름을 공백이 있는.
물론 아직은 get to see if this 협력했습니다 방관하겠나. 바로 이 경우가 많고, VBA 확장하지만 다시 시작할 수 있습니다 네트워크 기다리는 것보다 낫다.
다음 피레시스티모비치 라이브러리란 스크리프팅스런타임 대한 참조입니다 설정할 수 있습니다. 또한 데르테피레 방법 및 피레렉시츠 메서드입니다.
Msdn 문서 참조 [here] [1].
[1]: 이아스파스 http://msdn.microsoft.com/en-us/library/aa164509 (office.10)