Thema Datum  Von Nutzer Rating
Antwort
13.09.2017 12:40:55 Roman
NotSolved
13.09.2017 12:43:28 Gast473
NotSolved
13.09.2017 13:00:39 Gast88200
NotSolved
13.09.2017 14:23:07 Gast26715
NotSolved
Rot So
 13.09.2017 19:47:35 Gast20905
NotSolved
13.09.2017 19:48:36 Gast20905
NotSolved
Rot als Ojekte geht bei mir
 19.09.2017 15:57:56 Gast26558
NotSolved

Ansicht des Beitrags:
Von:
Gast26558		 Datum:
19.09.2017 15:57:56		 Views:
670		 Rating:
     
Antwort:
  Ja
Thema:
als Ojekte geht bei mir

Hallo also folgendes geht bei mir.

 

Public Sub t()
Dim myObj As Object
    Set myObj = CreateObject("Scripting.FileSystemObject")
 
    Dim verzeichnisRohdaten As Object
    Set verzeichnisRohdaten = myObj.GetFolder("C:\Temp")
     
    For Each file In verzeichnisRohdaten.Files
 
        Dim dateiname As String
        dateiname = file.Name
        Dim tagesKennung_string As String
        tagesKennung_string = Mid(dateiname, 7, 2)
        Dim tagesKennung_int As Integer
        
        a file
Next

End Sub



Public Sub a(ByVal f As Object)
MsgBox f.Name
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
13.09.2017 12:40:55 Roman
NotSolved
13.09.2017 12:43:28 Gast473
NotSolved
13.09.2017 13:00:39 Gast88200
NotSolved
13.09.2017 14:23:07 Gast26715
NotSolved
Rot So
 13.09.2017 19:47:35 Gast20905
NotSolved
13.09.2017 19:48:36 Gast20905
NotSolved
Rot als Ojekte geht bei mir
 19.09.2017 15:57:56 Gast26558
NotSolved