２０．既存のファイルを削除する



＜　使用用途　＞
既存のファイルを削除する

＜　説明　＞
ＡＰＩ関数のDeleteFileを使用します。
DeleteFile＝＞既存のファイルを削除する
　　＜引数＞
　　　　lpFileName：　　　削除するファイル名のパスを指定
　　＠戻り値＠　　
　　　　正常終了は0以外　　　　

<　ＳＡＭＰＬＥ　＞
'C:\Windows￥Calc.exeを削除する処理です
’標準モジュール
Public Declare Function DeleteFile Lib "KERNEL32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long


’フォーム内の処理
Private Sub Command1_Click()

　　Dim nFileName As String
　　Dim Ret As Long 　　

　　　nFileName = "C:\Windows\Calc.exe"

　　　Ret = DeleteFile(nFileName)

End Sub