Kod VB: Bagaimana untuk menulis kod untuk memadam fail tertentu pada komputer?

Bolehkah anda beritahu saya kod yang hendak digunakan dalam VB untuk memadam fail pada komputer anda

Anda boleh lihat fungsi membunuh:

kill memadam fail dari cakera.

Bunuh nama laluan

Parameter nama laluan ialah ungkapan rentetan yang digunakan untuk menentukan nama fail.

nama laluan boleh mengandungi direktori atau folder dan pemacu.

Arahan

Dalam Microsoft Windows, Kill menyokong kad bebas berbilang aksara (*) dan aksara tunggal (?) untuk menentukan berbilang fail.

Contoh:

Sub Perintah Peribadi1_Klik()

Bunuh "C:aa.txt" 'Laluan mutlak fail'

Tamat Sub

Jika anda memadam fail sepenuhnya, semua orang di atas betul!

Tetapi jika anda meletakkan fail dalam "Tong Kitar Semula" dan bukannya memadamkannya sepenuhnya, anda perlu menggunakan vb

fungsi api sekarang!

Contoh:

Dalam modul awam:

Pilihan Eksplisit

Konst Awam FO_MOVE = &H1

Public Const FO_COPY = &H2

Konst Awam FO_DELETE = &H3

Konst Awam FO_RENAME = &H4

Public Const FOF_NO CONFIRMATION = &H10

Konst Awam FOF_NOCONFIRMMKDIR = &H200

Konst Awam FOF_ALLOWUNDO = &H40

Taip SHFILEOPSTRUCT

hWnd Selagi

wFunc Selamanya

pDari Sebagai String

pTo As String

fBenderakan Sebagai Integer

fDigugurkan Sebagai Boolean

hNameMaps Selamanya

sKemajuan Sebagai Rentetan

Jenis Akhir

Isytihar Fungsi SHFileOperation Lib "shell32.dll" Alias ​​​​"SHFileOperationA" (lpFileOp Sebagai SHFILEOPSTRUCT) Selamanya

Dalam modul frm:

Sub Perintah Peribadi1_Klik()

Malapkan SHFileOp Sebagai SHFILEOPSTRUCT

Malapkan Laluan Sebagai Rentetan, pDari Sebagai Rentetan, i Sebagai Integer

pDari =＂c:aa.txt＂

SHFileOp.wFunc = FO_DELETE

SHFileOp.pFrom = pFrom

SHFileOp.fFlags = FOF_BENARKAN + FOF_TIADA PENGESAHAN

SHFileOperation SHFileOp

Tamat Sub

Saya rasa poster itu bertujuan untuk meletakkan fail ke dalam "tong kitar semula", jadi. . .

Bagaimana untuk memadam kandungan baris tertentu dalam dokumen teks tertentu dalam VB

Malapkan fail baharu Sebagai Senarai Baharu(Dari Rentetan)

Untuk Setiap baris Sebagai Rentetan Dalam System.IO.File.ReadAllLines(＂TextFile1.txt＂)

Jika Bukan baris.StartsWith(＂3＂) Kemudian newfile.Add(line)

Seterusnya

System.IO.File.WriteAllLines("TextFile1.txt", newfile) Buat koleksi, gunakan System.IO.File's ReadAllLines untuk membaca semua kandungan dan menilai satu persatu, jika ia adalah sesuatu yang perlu ditambah kepada koleksi, jika ia adalah sesuatu yang perlu dipadam, Jangan lakukan juga, hanya gunakan WriteAllLines untuk menulis pada akhirnya.

Biar saya jelaskan di sini, kod di atas digunakan untuk memadam semua baris teks bermula dengan 3.

Padam fail yang ditentukan mengikut nama fail dalam VB

Tambah kawalan FILELISTBOX pada borang dan tetapkannya kepada tidak kelihatan

Sub Borang Persendirian_Muat()

Pada Ralat GoTo MyError 'Tetapkan perangkap ralat

Malapkan MyPath Sebagai String 'Tentukan laluan direktori fail yang hendak dipadamkan

Malapkan MyPattern Sebagai Rentetan 'Tentukan jenis fail yang hendak dipadamkan

Dim YesterdayName, TodayName As String 'Tentukan nama fail semalam dan hari ini

MyPath = '＂D:TempPath＂

MyPattern = "*.TXT" 'Nama fail yang mengandungi tarikh, contohnya YYYY-MM-DD.TXT

File1.Path = MyPath

Fail1.Corak = MyPattern

YesterdayName = Format(DateAdd("d＂, -1, Date), "YYYY-MM-DD") + ".TXT" 'Nama fail yang mengandungi tarikh semalam

TodayName = Format(Date$, "YYYY-MM-DD") + ".TXT" 'Nama fail yang mengandungi tarikh hari ini

Jika Fail1.ListCount > 0 Kemudian

Untuk i% = 0 Ke Fail1.ListCount - 1

Fail1.ListIndex = i%

Jika File1.FileName CurrentName Dan File1.FileName CurrentName Kemudian 'Jika nama fail tidak sama dengan nama fail hari ini atau semalam, padamkannya

Bunuh Fail1.Laluan + "＂" + Fail1.Nama Fail

Tamat Jika

Seterusnya i%

Tamat Jika

Ralat Saya:

File1.Refresh 'Selepas semua pemadaman selesai, muat semula senarai

Tamat Sub

Atas ialah kandungan terperinci Kod VB: Bagaimana untuk menulis kod untuk memadam fail tertentu pada komputer?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!