Imports System.IO
Private Sub DeleteFileInFolder()
Dim PathFile As String = Application.StartupPath & "\PengaturanTechnical\" & LblNomorLTSeksi.Text & ".pdf"
If System.IO.File.Exists(PathFile) = True Then
System.IO.File.Delete(PathFile)
MsgBox("File Has Been Deleted Completely")
Else
MsgBox("File Does Not Exist")
End If
End Sub
Private Sub DeleteFileInFolder()
Dim PathFile As String = Application.StartupPath & "\PengaturanTechnical\" & LblNomorLTSeksi.Text & ".pdf"
If System.IO.File.Exists(PathFile) = True Then
System.IO.File.Delete(PathFile)
MsgBox("File Has Been Deleted Completely")
Else
MsgBox("File Does Not Exist")
End If
End Sub
Comments
Post a Comment