29-09-19, 10:38 PM
PHP كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fld As New FolderBrowserDialog
Dim opd As New OpenFileDialog
opd.Filter = "كل الملفات |*.*"
If fld.ShowDialog = Windows.Forms.DialogResult.OK Then
opd.InitialDirectory = fld.SelectedPath
If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
MsgBox(opd.FileName)
End If
End If
End Sub
أو وضح أكثر .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
