既存のファイルを削除する          <TOP>


DeleteFile 既存のファイルを削除
 

 

'================================================================
'= 既存のファイルを削除する
'=    (DeleteFile.bas)
'================================================================
#include "Windows.bi"

' 既存のファイルを削除
Declare Function Api_DeleteFile& Lib "Kernel32" Alias "DeleteFileA" (ByVal lpFileName$)

Var Shared Edit1 As Object
Var Shared Button1 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

Var Shared sFileName As String

'================================================================
'= シェルドロップされたファイル名を取得
'================================================================
Declare Sub Edit1_DropFiles edecl (ByVal DF As Long)
Sub Edit1_DropFiles(ByVal DF As Long)
    Var CN As Long

    CN = GetDropFileCount(DF)
    sFileName = GetDropFileName(DF, 0)
    Edit1.SetWindowText sFileName
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long   

    sFileName = Edit1.GetWindowText

    Ret = Api_DeleteFile(sFileName)
    If Ret <> 0 Then
        A% = MessageBox("", "削除しました!", 0, 2)
    Else
        A% = MessageBox("", "削除できません!", 0, 2)
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End