VB-Code: Wie schreibe ich Code zum Löschen bestimmter Dateien auf dem Computer?

Könnten Sie mir bitte sagen, welchen Code ich in VB verwenden soll, um eine Datei auf Ihrem Computer zu löschen? Sie können einen Blick auf die Kill-Funktion werfen:

kill löscht Dateien von der Festplatte.

Pfadname töten

Der Parameter Pfadname ist ein Zeichenfolgenausdruck, der zur Angabe eines Dateinamens verwendet wird.

Pfadname kann Verzeichnisse oder Ordner und Laufwerke enthalten.

Anleitung

In Microsoft Windows unterstützt Kill Platzhalter mit mehreren Zeichen (*) und einzelnen Zeichen (?), um mehrere Dateien anzugeben.

Beispiel:

Private Sub Command1_Click()

Kill ＂C:aa.txt＂ 'Der absolute Pfad der Datei＂

End Sub

Wenn Sie die Datei vollständig löschen, haben alle oben genannten Recht!

Aber wenn Sie die Datei in den „Papierkorb“ legen, anstatt sie vollständig zu löschen, müssen Sie vb verwenden

API-Funktion jetzt!

Beispiel:

In öffentlichen Modulen:

Option explizit

Public Const FO_MOVE = &H1

Public Const FO_COPY = &H2

Public Const FO_DELETE = &H3

Public Const FO_RENAME = &H4

Public Const FOF_NOCONFIRMATION = &H10

Public Const FOF_NOCONFIRMMKDIR = &H200

Public Const FOF_ALLOWUNDO = &H40

Geben Sie SHFILEOPSTRUCT ein

hWnd So Long

wFunc As Long

pFrom As String

pTo als String

fFlags als Ganzzahl

fAborted As Boolean

hNameMaps As Long

sProgress As String

Endtyp

Deklarieren Sie die Funktion SHFileOperation Lib „shell32.dll“ Alias ​​​​„SHFileOperationA“ (lpFileOp As SHFILEOPSTRUCT) als lang

Im frm-Modul:

Private Sub Command1_Click()

SHFileOp als SHFILEOPSTRUCT dimmen

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

End Sub

Ich glaube, das Poster wollte die Datei in den „Papierkorb“ werfen, also. . .

So löschen Sie den Inhalt einer bestimmten Zeile in einem bestimmten Textdokument in VB

Neue Datei als neue Liste(von Zeichenfolge) dimmen

Für jede Zeile als String in System.IO.File.ReadAllLines(＂TextFile1.txt＂)

Wenn nicht line.StartsWith(＂3＂) Then newfile.Add(line)

Weiter

System.IO.File.WriteAllLines("TextFile1.txt", newfile) Erstellen Sie eine Sammlung, lesen Sie mit ReadAllLines von System.IO.File den gesamten Inhalt aus und beurteilen Sie nacheinander, ob etwas hinzugefügt werden muss Wenn es sich um etwas handelt, das gelöscht werden muss, tun Sie dies auch nicht, sondern verwenden Sie einfach WriteAllLines, um am Ende zu schreiben.

Erklären Sie hier, dass der obige Code zum Löschen aller Textzeilen verwendet wird, die mit 3 beginnen.

Löschen Sie angegebene Dateien nach Dateinamen in VB

Fügen Sie dem Formular ein FILELISTBOX-Steuerelement hinzu und setzen Sie es auf unsichtbar

Private Sub Form_Load()

Bei Fehler Gehe zu MyError 'Fehlerfalle festlegen

Dim MyPath As String 'Definieren Sie den Verzeichnispfad der zu löschenden Datei

Dim MyPattern As String 'Definieren Sie den Dateityp, der gelöscht werden soll

Dim YesterdayName, TodayName As String 'Definieren Sie die Dateinamen von gestern und heute

MyPath = '＂D:TempPath＂

MyPattern = "*.TXT" 'Dateiname mit Datum, zum Beispiel JJJJ-MM-TT.TXT

File1.Path = MyPath

File1.Pattern = MyPattern

YesterdayName = Format(DateAdd("d＂, -1, Date), "YYYY-MM-DD") + ".TXT" 'Dateiname, der das gestrige Datum enthält

TodayName = Format(Date$, "YYYY-MM-DD") + ".TXT" 'Dateiname, der das heutige Datum enthält

Wenn File1.ListCount > 0, dann

Für i% = 0 To File1.ListCount - 1

File1.ListIndex = i%

Wenn File1.FileName

CurrentName und File1.FileName CurrentName dann: „Wenn der Dateiname nicht mit dem heutigen oder gestrigen Dateinamen übereinstimmt, löschen Sie ihn.“ Kill File1.Path + „＂“ + File1.FileName

Ende wenn

Nächstes i%

Ende wenn

Mein Fehler:

File1.Refresh 'Nachdem alle Löschvorgänge abgeschlossen sind, aktualisieren Sie die Liste

End Sub

Das obige ist der detaillierte Inhalt vonVB-Code: Wie schreibe ich Code zum Löschen bestimmter Dateien auf dem Computer?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!