18-07-17, 03:01 PM
19-07-17, 01:41 AM
وعليكم السلام ورحمة الله وبركاته
أهلا أخي الكريم , هذا الكود لعمل ذلك :
أهلا أخي الكريم , هذا الكود لعمل ذلك :
PHP كود :
Private Sub Command1_Click()
Dim FSO As Object
Dim Folder As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists("C:\Windows") Then
Set Folder = FSO.GetFolder("C:\Windows")
MsgBox Folder.Files.Count
End If
Set Folder = Nothing
Set FSO = Nothing
End Sub