Trouble loading pictures

**khwajafaheem** · 03-12-2024, 01:42 AM

If I change directory or folder name picture does not load.

On Error GoTo picss
If prin <> Empty Then

    Image1.Picture = LoadPicture("D:\Faheem Khalid\STEP\STEP 2024\Self Assessment Test 2024\Self Assessment Test 2024\Pictures" & prin & ".JPG")
    
Else

picss: MsgBox ("Please Upload Student's Picture"), vbCritical, "Information"

f = MsgBox("Print Form without Picture", vbYesNo, "Help")
If f <> 6 Then
    Unload Me
    frmform.Show
 Exit Sub
End If

End If

**rollis13** · 03-12-2024, 04:14 AM

I haven't tested your project, but it seems to me that this line should have a trailing backslash after "...Pictures", like this:

Image1.Picture = LoadPicture("D:\Faheem Khalid\STEP\STEP 2024\Self Assessment Test 2024\Self Assessment Test 2024\Pictures\" & prin & ".JPG")

**khwajafaheem** · 03-15-2024, 01:39 AM

Thanks for reply but my issue is other. When i change folder name or hard disk partition like D: to E: i have to write complete route. why should it take auto matically like App.path something else.

**rollis13** · 03-21-2024, 07:45 AM

Do you mind explaining better your issue.
Do you mean you'd want to browse your folders all the way to the new path ? and then assign the path to a variable in your macro ?

**CarissaKirby** · 03-21-2024, 01:03 PM

Does your code correctly formulate the path to image files, including changes to the directory or folder name? Is the file path updated after changes?
Instead of using absolute file paths, try using relative paths. They will automatically adapt to changes in the directory structure.
If you change the directory or folder name manually, make sure you also update the corresponding code that loads the images to reflect the new file path.