شرط خالی بودن فولدر

[alinoori 123]

سلام 

میخوام یه شرط بزارم اگه  فولدرx خالی بود یه رویدادی اتفاق بیفته

ولی هیچ اطلاعاتی از فایل های درون فولدر ندارم .کع مثلا بگم فلان فایل توش نبود ارور بده

 

اومدم فایل های توی فولدر رو لیست کردم بعد اومدم گفتم اگه لیست خالی بود ارور بده.ولی این کارو نمیتونم انجام بدم .ارور میده.!!!!؟؟؟

[پژمان نیکروان 6,055]

سلام.

چرا اررور میده؟؟ چه ارروری؟

 

گرفتن لیست فایل:

Dim l As List
l.Initialize
l=File.ListFiles(File.DirRootExternal&"/x")

و شرط خالی بودن:

If l.Size=0 Then
	ToastMessageShow("Khali hast",True)
End If