File Size loop

[DMT Dave]

Hi Guy's happy new year to you all....



Is there a method of retuning file name sizes in an input box between MsgBox and End Select ?

What my plan would be is to check the file size in an input box then I would options from the input box to resize or exit sub

Some thing like

Inputbox("Enter File Option ?" & vbcrlf & vbcrlf & _
DMT Image 1 = 804kb
DMT Image 2 = 9kb
DMT Image 3 = 706kp & vbcrlf & vbcrlf & _
"Leave Blank To Exit Sub" & vbcrlf & vbcrlf & _
Enter 1 To Open Specific File Name" & vbcrlf & vbcrlf & _
Enter 2 To Open All Files" etc..... etc......

I have had a quick search internet but can't see too much on returning file sizes in an array of files

The part I am struggling to find is how to return file sizes into inputbox ????

Dim strPathFrom, strFileName As String, strPathTo As String, strName As String, strFiles As StringDim varOpt As Variant
Dim i As Integer


varOpt = Me.optCamera


Select Case varOpt


    Case Is = False
    
    Me.optFolder = False
    
    Exit Sub
    
    Case Else
    
    
    strPathFrom = Forms!frmMainMenu!cboDrive & "\DCIM\101MSDCF\"
    strPathTo = "T:\DMT Ltd\Cam Images\"
    strFiles = Dir(strPathFrom & "*.jpg")


    While strFiles <> ""
    i = i + 1
    strName = "DMT Image" & " " & i & ".jpg"
        Name strPathFrom & strFiles As strPathTo & strName
        
    strFiles = Dir
    
    Wend
    
    Kill strPathFrom & "\*.*"
    
    
    MsgBox ("You Can Now Remove The SD Card From Your Computer"), vbInformation + vbOKOnly, "FILES MOVED"


    
End Select

[Welshgasman]

You would need to get the size first before using InputBox?
Google how to get a file size, then append to the message of the inputbox.
Personally I would use a form.

[DMT Dave]

Okie Dokie WGM thank you

[Gicu]

Happy New Year! Please have a look at the attached sample, I use it to load various files as OLE objects in a form for preview but should give you all the pieces you need. Specifically you want the modProcessFiles module and the code that populates the listbox on the form.

Cheers,

[DMT Dave]

Thanks Vlad, thank you yes i will have a look