VB コード: コンピューター上の指定されたファイルを削除するコードを記述するにはどうすればよいですか?

コンピューター上のファイルを削除する VB コードを作成するには、どのようなコードを使用すればよいですか?

kill 関数を見てみましょう:

kill はディスクからファイルを削除します。

パス名を強制終了

pathname パラメーターは、ファイル名を指定するために使用される文字列式です。

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

パブリック Const FOF_ALLOWUNDO = &H40

SHFILEOPSTRUCTと入力します

hWnd As Long

wできるだけ長く機能

p文字列として送信

pTo 文字列

fフラグを整数として使用する

fブール値として中止されました

hNameMap の長さ

s文字列として進行

終了タイプ

関数 SHFileOperation Lib "shell32.dll" エイリアス "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) を Long として宣言します

frm モジュール内:

プライベートサブコマンド1_Click()

SHFileOp を SHFILEOPSTRUCT としてディムする

Dim パスを文字列として、pFrom を文字列として、i を整数として

pFrom =＂c:\aa.txt＂

SHFileOp.wFunc = FO_DELETE

SHFileOp.pFrom = pFrom

SHFileOp.fFlags = FOF_ALLOWUNDO FOF_NOCONFIRMATION

SHFileOperation SHFileOp

エンドサブ

投稿者はファイルを「ごみ箱」に入れるつもりだったのではないでしょうか。 。 。

vb で指定したテキストドキュメントの指定した行の内容を削除する方法

新しいファイルを新しいリスト(文字列)としてディムします

System.IO.File.ReadAllLines("TextFile1.txt") の文字列として各行ごとに line.StartsWith(＂3＂)でない場合は、newfile.Add(line)

＃＃＃次＃＃＃

System.IO.File.WriteAllLines("TextFile1.txt", newfile) コレクションを作成し、System.IO.File の ReadAllLines を使用してすべての内容を読み出し、追加が必要かどうかを 1 つずつ判断します削除する場合はコレクションに書き込みます。何もせず、最後に WriteAllLines で書き込みます。

ここで説明します。上記のコードは、3 で始まるすべてのテキスト行を削除するために使用されます。

VB のファイル名で指定したファイルを削除します

FILELISTBOX コントロールをフォームに追加し、非表示に設定します

プライベートサブフォーム_Load()

エラー時は 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

i% = 0 から File1.ListCount - 1

の場合

File1.ListIndex = i%

If File1.FileName

CurrentName And File1.FileName

CurrentName then 'ファイル名が今日または昨日のファイル名と異なる場合は削除します

File1.Path ＂\＂ File1.FileName

を強制終了します。

終了の場合

次の i%

終了の場合

私のエラー:

File1.Refresh 'すべての削除が完了したら、リストを更新します

エンドサブ

以上がVB コード: コンピューター上の指定されたファイルを削除するコードを記述するにはどうすればよいですか?の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。