استفسار/ عن طريقة حذف محتويات مجلد .. ومعرفة عدد الملفات التي بداخلة

ممكن يجب kill استخدامة كذلك:

kill "adress\*.*"

ان شاء الله يظبط

'******************************************************
'*  Purpose :   Get the  file count
'*
'*  Inputs  :   strFolder(String)           Path to folder
'*
'*  Returns :  File Count(no of files ) for the given folder
'*
'*****************************************************
Public Function GetFileCount(strFolder As String) As Integer
    Dim fso As New FileSystemObject

    On Error GoTo ErrTrap
    If Not fso.FolderExists(strFolder) Then
        Err.Raise 1, , "Invalid path  given"
    End If

    GetFileCount = fso.GetFolder(strFolder).Files.Count

ErrTrap:
    If Err Then 
        Err.Raise Err.Number, , "Error form Functions.GetFileCount " &  Err.Description
    End If
End Function