[KSAm3lm]

(12-05-16, 10:24 PM)سعود كتب :

PHP كود :

           Dim dir As New DirectoryInfo(path to folder)
             For Each fl As FileInfo In dir.GetFiles
                Try
                    fl.Delete()
                    msgbox("Done")
                Catch ex As Exception
                   error message here
                End Try
            Next 


اخي في 3 أخطاء
الاول

كود :

For Each fl As Fileinfo In dir.GetFiles

Fileinfo
فيها خطأ

كود :

Dim dir As New DirectoryInfo()

DirectoryInfo
والخطأ الثالث

كود :

error message here

اذا مسحت كلمة 
here
يروح الخطأ الثالث
اتمنى تحل الأخطاء واكون شاكرلك