ホーム > カテゴリ > Visual Basic >

ファイルを削除する

ファイルを削除するサンプルです。

サンプルの実行画面

ソースコード

[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