Option Explicit
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
(ByVal lpFileName As String) As Long
Dim sel_fname As String
Dim G_fname As String
Private Sub cmd_DeleteFile_Click()
Dim rtn As Long
rtn = DeleteFile(G_fname)
File1.Refresh
If rtn = 0 Then
Label1.Caption = "화일을 삭제 하는데 실패 하였습니다."
Else
Label1.Caption = "화일을 삭제 하였습니다."
End If
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
sel_fname = ""
G_fname = ""
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
sel_fname = File1.FileName
G_fname = File1.Path & "\" & File1.FileName
source.Caption = File1.Path & "\" & File1.FileName
End Sub
Private Sub cmd_exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub