ファイルを削除する
ファイルを削除するサンプルです。
サンプルの実行画面

ソースコード
[DeleteFile.frm]
'DeleteFile=>既存のファイルを削除する '<引数> 'lpFileName: 削除するファイル名のパスを指定 '@戻り値@ '正常終了は0以外 Private Declare Function DeleteFile Lib "KERNEL32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click() Dim Ret As Long Ret = DeleteFile(Text1.Text) If Ret <> 0 Then MsgBox "削除しました" Else MsgBox "削除できませんでした" End If End Sub Private Sub Form_Load() MsgBox "削除する場合はごみ箱に削除されます" End Sub
ソースコード一式のダウンロード
vbapi_deletefile.zip 897 バイト (897 バイト)
このサンプルの動作環境について
このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | フォルダを作成する |
次の記事: | [スタートメニュー¥プログラム]の下にフォルダを追加する |
公開日:2015年03月04日
記事NO:00337