Thema Datum  Von Nutzer Rating
Antwort
25.06.2016 21:47:04 Haris
NotSolved
Blau LOGfile
 26.06.2016 12:54:27 Gast62956
NotSolved

Ansicht des Beitrags:
Von:
Gast62956		 Datum:
26.06.2016 12:54:27		 Views:
623		 Rating:
     
Antwort:
  Ja
Thema:
LOGfile

Hallo Haris! DA ich nicht weiß, wie deine Routine zum Einlesen ist, hier mal nur das für die "Logfile". Den Pfad ändern. Beim Ausführen, wird die Datei gelesen und dann dein Dateiname mit dem Inhalt verglichen. KOmmt er dort schon vor, dann nix sonst kommt dein Importieren und der Pfad wird anschließend der Logfile hinzugefügt. VG

 

Sub öffnen_logsuche()
Dim logtext As String
Dim logpfad As String
Dim Nr As Long

logpfad = "C:\Users\ich\Desktop\new.txt"  'pfad der lodatei
Nr = FreeFile
'logfile einlesen
Open logpfad For Binary As Nr
logtext = Space(LOF(Nr))
Get #Nr, , logtext
Close Nr

'in logtext befindet sich der INhalt der logdatei
'jetzt ggf. mit dir bzw. fso die Dateien im Ordner durchgehen, Datei erscheint dabei in Dateiname

If InStr(1, logtext, dateiname, vbTextCompare) > 0 Then
    'Datei schon vorhanden
    'nix machen oder was ausgeben
Else
    'Datei noch nicht da
    'dein Code zum kopieren


    'jetzt noch in die log Datei schreiben
    Open logpfad For Append As Nr
    Print #Nr, dateiname
    Close Nr
End If

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
25.06.2016 21:47:04 Haris
NotSolved
Blau LOGfile
 26.06.2016 12:54:27 Gast62956
NotSolved