Eigenschap opvragen van een bestand en aantal MB

[xanders32]

In Access wil ik geluidsbestanden doormailen. Voornamelijk .wav en .avi echter boven de 10 Mb loopt Access soms vast en ik wil in mijn programma code (VBA) vooraf onderzoeken hoeveel Mb betreffende bestand is en als deze te klein of te groot is de mailactie weigeren. Wie kan mij helpen het gewicht van dit soort bestanden op te vragen via VBA?

 

[OctaFish]

Met een functie kun je de bestandseigenschappen ophalen.

Function FileProp(FileName) As Long
Dim oFS As Object
    'This creates an instance of the MS Scripting Runtime FileSystemObject class
    Set oFS = CreateObject("Scripting.FileSystemObject")
    FileProp = oFS.GetFile(FileName).Size
    Set oFS = Nothing
End Function

Je roept 'm dan bijvoorbeeld zo aan:

MsgBox FileProp("G:\Download\Stay with me Baby\ruby turner - stay with me baby.mp3")

 

[xanders32]

Thanks, het is gelukt!