Thema Datum  Von Nutzer Rating
Antwort
06.05.2022 10:36:57 TW
NotSolved
06.05.2022 11:44:10 Gast46204
Solved
06.05.2022 12:21:07 TW
NotSolved
06.05.2022 12:59:46 Gast46204
NotSolved
06.05.2022 13:25:47 Gast35183
NotSolved
Blau Poste mal das Ergebnis folgender Prozedur
 06.05.2022 14:11:54 Gast46204
NotSolved
06.05.2022 14:32:02 TW
NotSolved
06.05.2022 14:43:04 Gast46204
NotSolved
06.05.2022 14:44:29 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Gast46204		 Datum:
06.05.2022 14:11:54		 Views:
403		 Rating:
     
Antwort:
  Ja
Thema:
Poste mal das Ergebnis folgender Prozedur		 
Sub Test01()
 
    Const sEXT      As String = "XLSX"          '<---- anpassen
    Const sPFAD     As String = "c:\Test2\"     '<---- anpassen
    Dim fil         As Variant
    Dim v
     
    With CreateObject("Scripting.FileSystemObject")
        For Each fil In .GetFolder(sPFAD).Files
            If UCase$(.GetExtensionName(fil.Path)) = sEXT Then
                v = v & fil.Path & vbNewLine
            End If
        Next
    End With
     
    MsgBox v
     
End Sub

 

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
06.05.2022 10:36:57 TW
NotSolved
06.05.2022 11:44:10 Gast46204
Solved
06.05.2022 12:21:07 TW
NotSolved
06.05.2022 12:59:46 Gast46204
NotSolved
06.05.2022 13:25:47 Gast35183
NotSolved
Blau Poste mal das Ergebnis folgender Prozedur
 06.05.2022 14:11:54 Gast46204
NotSolved
06.05.2022 14:32:02 TW
NotSolved
06.05.2022 14:43:04 Gast46204
NotSolved
06.05.2022 14:44:29 ralf_b
NotSolved