FSO - Finding properties of a specific "item" in a folder

[kdbailey]

I am attempting to randomly generate a picture from a folder but am having issues with file extensions. All pictures are named integers for simplification (1-19 at the moment).

Private Sub Form_Load()

Dim thepic As Integer, themax As Integer, fso As Object, filecount As Integer, picstr as String


Screen.ActiveForm.Painting = False


Set fso = CreateObject("Scripting.FileSystemObject")


folderspec = "S:\Shared\Warranty Returns\WRA Data Storage\Backups\Files\Pictures"


If fso.FolderExists(folderspec) Then
    themax = fso.getfolder(folderspec).files.Count
    thepic = Int((themax - 1 + 1) * Rnd + 1)
    picstr = fso.getfolder(folderspec).files.Items(thepic).name
    Me.imgpic.Picture = "S:\Shared\Warranty Returns\WRA Data Storage\Backups\Files\Pictures\" & picstr
End If


finish:
Screen.ActiveForm.Painting = True


End Sub

The bolded section is where I am getting tripped up and can't seem to find the correct code to find this property. I just want to grab the ".jpg" or ".png" portion of the name

[June7]

There will be jpg and png files? Will there be more than one file with the same number name but different extension type? Like:

17.jpg
17.png

[kdbailey]

No, theres only one for each integer. However, I don't want to do a trial and error try each extension. I'd rather just quick pull the extension from its properties.

[rpeare]

I think you want something more like this:

Dim fso
Dim fsoFile
Dim fsoFolder
Dim FolderSpec As String
Dim theMax As Integer
Dim thePic As Integer
Dim iCurrPic As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
FolderSpec = CurrentProject.Path

If fso.folderexists(FolderSpec) Then
    theMax = fso.getfolder(FolderSpec).files.Count
    Randomize
    thePic = Int((theMax - 1 + 1) * Rnd + 1)
End If

Set fsoFolder = fso.getfolder(FolderSpec)
iCurrPic = 1

For Each fsoFile In fsoFolder.files
    If iCurrPic = thePic Then
        Debug.Print "THE FILE YOU WANT IS " & fsoFile.Name
        GoTo CLOSESTUFF
    Else
        iCurrPic = iCurrPic + 1
    End If
Next fsoFile

CLOSESTUFF:
Set fsoFile = Nothing
Set fsoFolder = Nothing
Set fso = Nothing

you want to use RANDOMIZE before using the RND function because your database will always create the same FIRST value every time you open your database (in essence your picture will always be the same if it's only loaded when the database opens)

Secondly you do not need to name your files with numbers, your current code is basically expecting your file names to be 17 when they are in fact something more akin to 17.jpg or 17.png

So what this code does is generates a random number then cycles through the files in your folder until it finds that file then returns the file name. You can then test that name for the extension and open the appropriate application to display it.

[kdbailey]

Thanks for the help, I thought I responded last week. I did not know about the RANDOMIZE issue, but the code is not run upon database open. However, I still used it in my code now. I some reason didn't realize to just have it cycle through the items instead of the names.

Works like a charm.