منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ALBRNS كتب :السلام عليكم

جرب التالي

PHP كود :

Private Sub Command1_Click()
Set Doc = CreateObject("shell.application")
For Each A In Doc.Windows
If A.document.folder.self.Path = Environ$("USERPROFILE") & "\Documents" Then A.Quit
Next
End Sub 


بالتوفيق