16-06-13, 06:21 AM
السلام عليكم
جرب التالي
بالتوفيق
جرب التالي
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
بالتوفيق