VB程式碼：如何撰寫刪除電腦中指定檔案的程式碼？

請問VB寫刪除電腦裡某個檔案用什麼程式碼

你可以看看kill函數：

kill從磁碟中刪除檔案。

Kill pathname

pathname 參數是用來指定一個檔案名稱的字串表達式。

pathname 可以包含目錄或資料夾以及磁碟機。

說明

在 Microsoft Windows 中，Kill 支援多字元 （*） 和單字元 （？）的通配符來指定多重檔案。

範例：

Private Sub Command1_Click()

Kill ＂C:\aa.txt＂ '檔案的絕對路徑＂

End Sub

如果是把文件完全刪除，樓上都是對的！

但是如果你是把檔案放到「回收站」之中，而不是徹底的刪除就要用到vb的

api函數了！

範例：

在公共模組之中：

Option Explicit

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

Type SHFILEOPSTRUCT

hWnd As Long

wFunc As Long

pFrom As String

pTo As String

fFlags As Integer

fAborted As 布林值

hNameMaps As Long

sProgress As String

End Type

Declare Function SHFileOperation Lib ＂shell32.dll＂ Alias ＂SHFileOperationA＂ (lpFileOp As SHFILEOPSTRUCT) As Long

在frm模組之中：

Private Sub Command1_Click()

Dim SHFileOp As SHFILEOPSTRUCT

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

我想樓主應該是將文件放入」回收站「的意思，所以。 。 。

vb中如何刪除指定文字文件中的指定行的內容

Dim newfile As New List(Of String)

For Each line As String In System.IO.File.ReadAllLines(＂TextFile1.txt＂)

If Not line.StartsWith(＂3＂) Then newfile.Add(line)

Next

System.IO.File.WriteAllLines(＂TextFile1.txt＂, newfile)建個集合，用System.IO.File的ReadAllLines讀出所有內容，逐個判斷，如果是需要的加入集合，如果要刪除的什麼都不做，最後用WriteAllLines寫入即可。

這裡說明一下，上面那個程式碼是用來刪除所有以3開頭的文字行。

VB裡面透過檔案名稱刪除指定檔案

在窗體上新增一個FILELISTBOX控件，設定為不可見

Private Sub Form_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 = MyPath

File1.Pattern = MyPattern

YesterdayName = Format(DateAdd(＂d＂, -1, Date), ＂YYYY-MM-DD＂) ＂.TXT＂ '含昨天日期的檔名

TodayName = Format(Date$, ＂YYYY-MM-DD＂) ＂.TXT＂ '包含今天日期的檔名

If File1.ListCount > 0 Then

For i% = 0 To File1.ListCount - 1

File1.ListIndex = i%

##If File1.FileName CurrentName And File1.FileName CurrentName Then '如果檔案名稱不等於今天或昨天的檔案名，則刪除

Kill File1.Path ＂\＂ File1.FileName

#End If

Next i%

End If

MyError:

File1.Refresh '全部刪除完畢以後，刷新清單

End Sub

以上是VB程式碼：如何撰寫刪除電腦中指定檔案的程式碼？的詳細內容。更多資訊請關注PHP中文網其他相關文章！