کد | حذف فایل در ویژوال بیسیک | سورس
قبل از استفاده از کد زیر یک CommonDialogControl , یک TextBox و دو تا Command button روی فرم بزارید.
Public Function Delete(FilePath As String) Kill FilePath End Function Private Sub Command1_Click() With CommonDialog1 .CancelError = False .ShowOpen End With Text1.Text = CommonDialog1.Filename End Sub Private Sub Command2_Click() Delete Text1.Text End Sub |
منبع:www.cesblog.ir
+ نوشته شده توسط CES در یکشنبه بیست و دوم خرداد ۱۳۹۰ و ساعت
21:10 |