Thema Datum  Von Nutzer Rating
Antwort
08.12.2022 14:57:42 diesdas9999
NotSolved
09.12.2022 14:47:12 fk
NotSolved
15.12.2022 11:39:15 Gast86514
NotSolved
15.12.2022 14:00:44 Gast40633
NotSolved
19.12.2022 15:49:34 Gast14015
NotSolved
Blau Individueller E-Mail Anhang
 21.12.2022 11:09:37 FK
NotSolved

Ansicht des Beitrags:
Von:
FK		 Datum:
21.12.2022 11:09:37		 Views:
259		 Rating:
     
Antwort:
  Ja
Thema:
Individueller E-Mail Anhang

Hallo,

ich habe leider keine Zeit das einzuarbeiten, aber das ist die Lösung die du suchst:

Sub DateiEigenschaften()
    Dim fso As Object
    Dim objDatei As Object
     
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objDatei = fso.GetFile("Pfad + Dateiname") 'hier mit deinen Variablen Pfad und dateiname definieren
     
   Debug.Print "Dateityp: " & objDatei.Type

End Sub

Der Code gibt den Dateityp zurück. Wenn du das korrekt in eine Schleife einbindest, solltest du damit hinkommen.

MFG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.12.2022 14:57:42 diesdas9999
NotSolved
09.12.2022 14:47:12 fk
NotSolved
15.12.2022 11:39:15 Gast86514
NotSolved
15.12.2022 14:00:44 Gast40633
NotSolved
19.12.2022 15:49:34 Gast14015
NotSolved
Blau Individueller E-Mail Anhang
 21.12.2022 11:09:37 FK
NotSolved