Check whether the directory is empty or not on network drive

need to check whether the folder is having any file or is empty.

using this code

Public Sub Main()
If File.Exists("User::vFolderToDelete") = True Then
' Dts.Variables("User::vFileExistCheck").Value = "Yes"
MsgBox(" found")
Else
'Dts.Variables("User::vFileExistCheck").Value = "No"
MsgBox(" not found")
End If
'Dts.TaskResult = Dts.Results.Success
End Sub

it is simple but somehow i am not able to get the correct result.

it always prints the message as "Not found" though the network shared folder is

having file.

any solution please..

Regards, Chirag Patel (ETL Engineer)