تلميذ فى مدرسة العمالقة ... فهل من معلم .؟

[Firstman2006]

بسم الله الرحمن الرحيم
إخوانى الأعزاء أعضاء هذا المنتدى العريق لدى خلفية جيدة فى الفيجوال بيسك 6 والدوت نت 2005 وأريد أن أعمل برنامج بمعرفة حجم المجلد وعدد ملفاته ونوعيتها وأذا كانت الملفات ملفات صور فكم عدد الصور داخل كل ملف وأريد أن أعرف كيف أتعامل مع صور .tiff برمجيا من حيث التعديل وكل أساليب التعامل معها...
إخوانى الاعزاء لا أريد من أحد تصميم برنامج ولكن أريد أن يرشدنى الى الطريق والى المواد العلمية التى تساعدنى فى الوصول الى غايتى.
وشكراً لكم جميعاً

[adam_22]

السلام عليكم
بالنسبة لعدد الفايلات وحجم الفولدر وما الى ذلك تستطيع عمل ذلك كالتالي:
صمم برنامجا صغيرا وضع فيه ال Controls التالية كما هو موضح في الصورة:
http://abomadi.com/up/uploads/3e3d8fbbb6.jpg

وضع في ال event الخاص بالزر الكود التالي:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
FolderBrowserDialog1.ShowDialog()
Dim s, filename As String
filename = ""
s = FolderBrowserDialog1.SelectedPath
Dim xx As Integer = 0
Dim x As Integer = 0
Dim siz As String = ""
Dim di As New DirectoryInfo(s)
Dim oFS As Object = CreateObject("******ing.FileSystemObject")
Dim oDir As Object = oFS.GetFolder(s)
Dim nBytes As Long = CLng(oDir.Size)
siz = "bytes"
If nBytes > 1000 Then
nBytes = nBytes / 1000
siz = "KB"
End If
Label3.Text = "Size: " & nBytes & " " & siz
For Each ss As String In Directory.GetFiles(s)
filename = ss.Substring(ss.LastIndexOf("\") + 1)
ListBox1.Items.Add(filename)
x += 1
Dim o As Image
Try
o = Image.FromFile(ss)
xx += 1
Catch ex As Exception

End Try
Next
Label1.Text = "Files: " & x
Label2.Text = "Images: " & xx

End Sub

اضف FolderBrowserDialog

الان عند الضغط على الزر سيظهر في label1 عدد الفايلات الموجودة في المجلد
وفي label2 عدد الصور الموجودة في المجلد
وفي label3 حجم المجلد
وفي listbox1 اسماء الملفات الموجودة في المجلد

وبصراحة لا اعلم الكثير عن امتداد tiff وكيفية التعامل معه

واتمنى ان تكون قد استفدت

وبالتوفيق

[Firstman2006]

السلام عليكم
بالنسبة لعدد الفايلات وحجم الفولدر وما الى ذلك تستطيع عمل ذلك كالتالي:
صمم برنامجا صغيرا وضع فيه ال Controls التالية كما هو موضح في الصورة:
http://abomadi.com/up/uploads/3e3d8fbbb6.jpg

وضع في ال event الخاص بالزر الكود التالي:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
FolderBrowserDialog1.ShowDialog()
Dim s, filename As String
filename = ""
s = FolderBrowserDialog1.SelectedPath
Dim xx As Integer = 0
Dim x As Integer = 0
Dim siz As String = ""
Dim di As New DirectoryInfo(s)
Dim oFS As Object = CreateObject("******ing.FileSystemObject")
Dim oDir As Object = oFS.GetFolder(s)
Dim nBytes As Long = CLng(oDir.Size)
siz = "bytes"
If nBytes > 1000 Then
nBytes = nBytes / 1000
siz = "KB"
End If
Label3.Text = "Size: " & nBytes & " " & siz
For Each ss As String In Directory.GetFiles(s)
filename = ss.Substring(ss.LastIndexOf("\") + 1)
ListBox1.Items.Add(filename)
x += 1
Dim o As Image
Try
o = Image.FromFile(ss)
xx += 1
Catch ex As Exception

End Try
Next
Label1.Text = "Files: " & x
Label2.Text = "Images: " & xx

End Sub

اضف FolderBrowserDialog

الان عند الضغط على الزر سيظهر في label1 عدد الفايلات الموجودة في المجلد
وفي label2 عدد الصور الموجودة في المجلد
وفي label3 حجم المجلد
وفي listbox1 اسماء الملفات الموجودة في المجلد

وبصراحة لا اعلم الكثير عن امتداد tiff وكيفية التعامل معه

واتمنى ان تكون قد استفدت

وبالتوفيق

بسم الله الرحمن الرحيم
أخى العزيز adam
أشكر لك إهتمامك وأقدر حرصك على مساعدتى ولكنى لا أريد كود أكتبه فيقوم بتنفيذ ما أريد ولكننى أريد أن أتعلم فأرجو منك شرح الكود وشكراً.