|
Hallo zusammen,
ich hoffe ihr könnt mir helfen! Ich habe festgestellt, das die FileSearch Funktion unter Office 2007 nicht mehr existiert. Nun hab ich gelesen, dass man dafür das FileSystemObject benutzen kann. Nur leider habe ich keine Ahnung, wie ich diesen Code ändern muss, damit er wieder funktioniert.:
Private Sub SpinButton1_Change()
Dim verz As String
Dim Fotos()
Dim i_zähler As Long
Dim i_Zähler2 As Long
Dim Fehler As String
On Error GoTo Ende
Fehler = frmFehlerkatalog.Tag
SpinButton1.Min = 1
verz = ThisWorkbook.Path & "\Fehlerfotos\" & Fehler & "\1"
With Application.FileSearch
.Filename = Fehler
.LookIn = verz
.Execute
i_zähler = .FoundFiles.Count
End With
SpinButton1.Max = i_zähler
ReDim Fotos(i_zähler)
With Application.FileSearch
.Filename = Fehler
.LookIn = verz
.Execute
For i_Zähler2 = 1 To i_zähler
Fotos(i_Zähler2) = .FoundFiles(i_Zähler2)
Next i_Zähler2
End With
Image1.Picture = LoadPicture(Fotos(SpinButton1.Value))
Label1.Caption = Fehler & " " & SpinButton1.Value & ".jpg"
Exit Sub
Ende:
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Resource\keinBild.jpg")
Label1.Caption = ""
End Sub
"Fehler" ist in diesem Fall ein Name und wenn dieser Name in dem Ordner gefunden wird, soll das Bild geladen werden und wenn man den Spinbutton betätigt, wird entweder das nächste oder das voherige Bild geladen.
Ich hoffe das ihr mir helfen könnt!
Gruß Christian
|