Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife wird nur einmal durchlaufen?
28.04.2021 08:49:21 Markus
NotSolved
28.04.2021 08:56:10 Gast23932
NotSolved
28.04.2021 09:01:02 Gast41689
NotSolved
30.04.2021 08:20:11 Mase
NotSolved

Ansicht des Beitrags:
Von:
Markus
Datum:
28.04.2021 08:49:21
Views:
74
Rating: Antwort:
  Ja
Thema:
Schleife wird nur einmal durchlaufen?

Hallo,

die folgende Schleife, welche kontrolliert ob der Dateiname schon vorahnden ist wird nur einmal durchlaufen.

Danach bekomme ich eine Laufzeitfehler 91 in Bezug auf objFSO.FileExists(strDatei) ?

 

Public Function DateiVorhanden(strDatei As String)
    Dim objFSO As Object
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(strDatei) = True Then
        DateiVorhanden = True
    Else
        DateiVorhanden = False
    End If
    Set objFSO = Nothing
End Function


Private Sub CommandButton22_Click()

START:

        'No-option email sending
        Dim OL              As Object
        Dim EmailItem       As Object
        Dim Doc             As Document
        Dim datum           As Date
        Dim inpt            As Long
        Dim Fehler1         As String
        Dim strDatei        As String
        datum = Now()

        Application.ScreenUpdating = False
        Set OL = CreateObject("Outlook.Application")
        Set EmailItem = OL.CreateItem(olMailItem)
        Set Doc = ActiveDocument
        strDatei = Empty
        Set objFSO = Nothing
        inpt = Empty
        
EINGABE1:

        On Error GoTo ERRORHANDLER1
        inpt = InputBox("Bitte hier kurze Dateinamenerweiterung wie eine Nummer eingeben, Danke", "Dateinamenzustaz", "1")
        strDatei = (Environ("TEMP") & "\" & "TBM-Aufgabe-" & Application.UserName & "-" & inpt & ".docx")
        If objFSO.FileExists(strDatei) = True Then GoTo ERRORHANDLER1 Else GoTo EINGABE2
        If inpt = "Falsch" Then GoTo START Else GoTo EINGABE2
           
ERRORHANDLER1:

        MsgBox "Dateinamen mit dieser Erweiterung existiert schon!"
        GoTo START
  
EINGABE2:

End Sub

Gruß und Danke, Markus


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
Rot Schleife wird nur einmal durchlaufen?
28.04.2021 08:49:21 Markus
NotSolved
28.04.2021 08:56:10 Gast23932
NotSolved
28.04.2021 09:01:02 Gast41689
NotSolved
30.04.2021 08:20:11 Mase
NotSolved