[Mohamed20]

لماذا هذا الكود لا يعمل

كود :

       Dim input As Shell32.Folder = sc.NameSpace(Application.StartupPath + "\test\zz.zip")
       ProgressBar2.Maximum = CInt(input.Items.Count)
       For i = 0 To input.Items.Count - 1
           ProgressBar2.Value = i
       Next

اريد ان اجعل Maximum = Count لاكن لا يعمل حل من حل ؟