VB 코드: 컴퓨터에서 지정된 파일을 삭제하는 코드를 작성하는 방법은 무엇입니까?

컴퓨터에서 파일을 삭제하기 위해 VB에서 어떤 코드를 사용해야 하는지 알려주실 수 있나요

킬 기능을 살펴보세요:

kill은 디스크에서 파일을 삭제합니다.

경로명 삭제

pathname 매개변수는 파일 이름을 지정하는 데 사용되는 문자열 표현식입니다.

경로 이름에는 디렉터리나 폴더, 드라이브가 포함될 수 있습니다.

지침

Microsoft Windows에서 Kill은 여러 파일을 지정하기 위해 다중 문자(*) 및 단일 문자(?) 와일드카드를 지원합니다.

예:

비공개 하위 명령1_Click()

Kill "C:aa.txt" '파일의 절대 경로'

끝 서브

파일을 완전히 삭제하시면 위의 분들 모두 맞습니다!

단, 파일을 완전히 삭제하지 않고 "휴지통"에 넣으면 vb를 사용해야 합니다

API 기능이 이제 생겼습니다!

예:

공개 모듈:

옵션 명시

공공 구성 FO_MOVE = &H1

공공 구성 FO_COPY = &H2

공공 구성 FO_DELETE = &H3

공공 구성 FO_RENAME = &H4

공공 구성 FOF_NOCONFIRMATION = &H10

공공 구성 FOF_NOCONFIRMMKDIR = &H200

공공 구성 FOF_ALLOWUNDO = &H40

SHFILEOPSTRUCT를 입력하세요

hWnd만큼 오랫동안

wFunc만큼 오랫동안

p문자열로

pTo를 문자열로

f정수로서의 플래그

f부울로 중단됨

hNameMaps 길이

sProgress As String

엔드 유형

SHFileOperation Lib "shell32.dll" 별칭 "SHFileOperationA"(SHFILEOPSTRUCT로 lpFileOp)를 길게 선언

frm 모듈에서:

비공개 하위 명령1_Click()

SHFILEOPSTRUCT로 Dim SHFileOp

Dim Path As String, pFrom As String, i As Integer

pFrom =＂c:aa.txt＂

SHFileOp.wFunc = FO_DELETE

SHFileOp.pFrom = pFrom

SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION

SHFileOperation SHFileOp

끝 서브

포스터는 파일을 '휴지통'에 넣으라는 의미인 것 같아요. . .

VB에서 지정된 텍스트 문서에서 지정된 줄의 내용을 삭제하는 방법

Dim 새 파일을 새 목록(문자열)으로

System.IO.File.ReadAllLines("TextFile1.txt")에서 각 줄을 문자열로

line.StartsWith(＂3＂)가 아니면 newfile.Add(line)

다음

System.IO.File.WriteAllLines("TextFile1.txt", newfile) 컬렉션을 만들고 System.IO.File의 ReadAllLines를 사용하여 모든 내용을 읽고 추가해야 할 내용인지 하나씩 판단합니다. 컬렉션에 삭제해야 하는 항목이 있는 경우 둘 중 하나를 수행하지 말고 WriteAllLines를 사용하여 마지막에 작성하십시오.

설명하자면 위 코드는 3으로 시작하는 모든 텍스트 줄을 삭제하는 데 사용됩니다.

VB에서 파일 이름으로 지정된 파일 삭제

양식에 FILELISTBOX 컨트롤을 추가하고 숨김으로 설정하세요

비공개 하위 양식_Load()

On Error GoTo MyError '오류 트랩 설정

Dim MyPath As String '삭제할 파일의 디렉터리 경로를 정의합니다

Dim MyPattern As String '삭제할 파일 형식을 정의하세요

Dim YesterdayName, TodayName As String '어제와 오늘의 파일 이름을 정의합니다

MyPath = '"D:TempPath"

MyPattern = "*.TXT" '날짜가 포함된 파일 이름(예: YYYY-MM-DD.TXT

)

File1.Path = 내 경로

File1.Pattern = MyPattern

YesterdayName = Format(DateAdd("d", -1, Date), "YYYY-MM-DD") + ".TXT" '어제 날짜가 포함된 파일 이름

TodayName = Format(Date$, "YYYY-MM-DD") + ".TXT" '오늘 날짜가 포함된 파일 이름

File1.ListCount > 0이면

For i% = 0 To File1.ListCount - 1

File1.ListIndex = i%

If File1.FileName CurrentName And File1.FileName CurrentName 그런 다음 '파일 이름이 오늘 또는 어제의 파일 이름과 같지 않으면 삭제합니다

Kill File1.Path + """ + File1.FileName

끝나면

다음i%

끝나면

내 오류:

File1.Refresh '모든 삭제 완료 후 목록 새로고침

끝 서브

위 내용은 VB 코드: 컴퓨터에서 지정된 파일을 삭제하는 코드를 작성하는 방법은 무엇입니까?의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!