|
Danke fuer Euere Bemuehungen
Hier mal der Code zum Einlesen der Datei:
Public Sub CommandButtonEINLESEN_Click()
If UserFormEINGABE.ComboBoxLAUFWERK.Value = "" Then
MsgBox "Welches Laufwerk soll verwendet werden?"
UserFormEINGABE.ComboBoxLAUFWERK.BackColor = &HFFFF& 'gelb
Exit Sub
Else
UserFormEINGABE.ComboBoxLAUFWERK.BackColor = &HFF00& 'gruen
End If
If UserFormEINGABE.TextBoxDER_PFAD <> "" Then
GoTo weiter
Else: pfad = UserFormEINGABE.TextBoxDER_PFAD
End If
DateiName = ""
Dateiendung = ""
If Laufwerk <> "" Then
'nicht relevant
Else
Laufwerk = Left(UserFormEINGABE.ComboBoxLAUFWERK.Value, 1)
End If
weiter:
If Len(pfad) > 3 Then
'nicht relevant
Else
' pfad = UserFormEINGABE.TextBoxDER_PFAD
pfad = Laufwerk & ":\"
End If
On Error Resume Next
ChDrive Laufwerk
ChDir pfad
'hier lese ich die Datei per Mausklick ein
Langname = Application.GetOpenFilename("Dateiauswahl (*.*), *.*")
'Diesen Teil moechte ich automatisieren, so das mit einem Klick auf OK in der UserForm
'automatisch die naechst anstehende Datei im Ordner ausgewaehlt wird.
If Langname = "Falsch" Then
'MsgBox "Abbruch"
Exit Sub
End If
Anzahl = Len(Langname)
For zz = Anzahl To 1 Step -1
If Mid(Langname, zz, 1) = "\" Then Exit For
Next
pfad = Left(Langname, zz)
Rest = Right(Langname, Anzahl - zz)
Laufwerk = Left(Langname, 1)
Anzahl = Len(Rest)
For zz = Anzahl To 1 Step -1
If Mid(Rest, zz, 1) = "." Then Exit For
Next
Dateiendung = Right(Langname, Anzahl - zz)
DateiName = Left(Rest, zz - 1)
UserFormEINGABE.TextBoxEINLESEN.Value = DateiName
UserFormEINGABE.TextBox2.Value = Dateiendung
UserFormEINGABE.TextBox3.Value = Dateiendung
UserFormEINGABE.TextBox4.Value = Dateiendung
UserFormEINGABE.TextBoxDER_PFAD = pfad
'Minivorschau Meldung bei nichtfunktionierender Vorschau
UserFormEINGABE.Image2.Visible = False
If Dateiendung <> "bmp" And Dateiendung <> "gif" And Dateiendung <> "jpg" And Dateiendung <> "JPG" Then
UserFormEINGABE.Image2.Visible = True ' weisses Bild ueberdeckt das Vorschaubild
MsgBox "Dateien mit der Endung" _
& Chr(10) & Chr(10) _
& "." & Dateiendung _
& Chr(10) & Chr(10) _
& "koennen in der Minivorschau leider nicht angzeigt werden"
End If
UserFormEINGABE.Image1.Picture = LoadPicture(Langname)
'Erstelldatum auslesen
Dim myShell As Object
Dim Ordner As Object
Dim Datei As Object
Set myShell = CreateObject("Shell.Application")
Set Ordner = myShell.Namespace(pfad)
Set Datei = Ordner.Parsename(Rest)
UserFormEINGABE.TextBoxERSTELLDATUM.Value = Ordner.GetDetailsOf(Datei, 12)
'UserFormEINGABE.TextBoxERSTELLDATUM.Value = Ordner.GetDetailsOf(Datei, 4)
UserFormEINGABE.TextBoxAENDERUNGSDATUM.Value = Ordner.GetDetailsOf(Datei, 3)
UserFormEINGABE.CheckBoxVERWENDEN.Value = False
If UserFormEINGABE.TextBoxERSTELLDATUM.Value = "" Then
UserFormEINGABE.CheckBoxVERWENDEN.Visible = False
UserFormEINGABE.Label16.Visible = False
End If
End Sub
PS:
Habe gerade was von EXIF-Informationen gelesen.
Evtl. bringt mich das auch schon weiter.
Melde mich diese Woche nochmal zurueck.
|