Hi
I played around with this code a fair while ago. Very fast but, not good where there are special system file types/folder types included.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim fso = CreateObject("Scripting.FileSystemObject")
Dim pr = fso.GetFolder("C:\Users\lesha\AppData\Local\Temp")
Dim sz As Double = pr.Size / 1024 / 1024
MessageBox.Show(sz.ToString("0.00 MB"))
End Sub
End Class
Man that's a tragedy! Anyway I'll make a good function for that later, for now just please tell me:
GetFiles("." will include multi extension files? or if use a single asterisk like " * " will also include all files?
This editor has problems showing asterisk chars!