Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Prüfe ob datei vorhanden, falls nicht prüfe weiter....stopp nach 10 min

Frage Microsoft Microsoft Office

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

28.12.2014, aktualisiert 21:42 Uhr, 2137 Aufrufe, 2 Kommentare

Hallo,

ich möchte per VBA in Excel prüfen lassen, ob eine Datei X im Verzeichnis Y vorhanden ist
Diese Prüfung soll als Schleife laufen, da ein externes Programm diese Datei bereit stellt, nur weis ich nicht, wann dieses erfolgt.
Gleichzeitig möchte ich, dass diese Schleife nach 10 Minuten sich beendet, falls bis dahin die Datei immer noch nicht vorhanden ist

Prüfen ob Datei vorhanden ist geht ja noch

01.
    If Dir("C:\test.txt") = "" Then  
02.
         MsgBox "gibts nicht"  
03.
       Else  
04.
         MsgBox "gibts"  
05.
     End If
nur wo bringe ich die Schleife, vor allem den Stopp nach 10 Minuten ein?
Mitglied: 116301
LÖSUNG 28.12.2014, aktualisiert um 21:42 Uhr
Hallo thomas1972!

In etwa so:
01.
Sub Test() 
02.
    If IsFileExists("C:\Test.txt") Then 
03.
        MsgBox "existiert" 
04.
    Else 
05.
        MsgBox "existiert nicht" 
06.
    End If 
07.
End Sub 
08.
 
09.
Private Function IsFileExists(ByRef sFileName) As Boolean 
10.
    Dim dStopTime As Date 
11.
     
12.
    dStopTime = DateAdd("n", 10, Now)   'Stopzeit (maximal 10 Minuten) 
13.
     
14.
    Do While dStopTime > Now 
15.
        DoEvents 
16.
        If Dir(sFileName) <> "" Then 
17.
            IsFileExists = True:  Exit Do 
18.
        End If 
19.
        Call WaitOfTime(10)             'Wartezeit (alle 10 Sekunden prüfen) 
20.
    Loop 
21.
End Function 
22.
 
23.
'Funktion Warten in Sekunden (1s = 1, 100ms = 0.1, 500ms = 0.5, 50ms = 0.05...) 
24.
Private Sub WaitOfTime(ByVal dSecond As Double) 
25.
    Dim dStopTime As Double 
26.
    dStopTime = Date + ((Timer + dSecond) / 86400) 
27.
    Do While dStopTime >= (Date + Timer / 86400) 
28.
        DoEvents 
29.
    Loop 
30.
End Sub
Grüße Dieter
Bitte warten ..
Mitglied: thomas1972
28.12.2014 um 21:42 Uhr
Hallo Dieter,
Vielen dank,
Genau so dachte ich mir das.
Danke
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Powershell - Datei prüfen ob vorhanden, dann löschen
gelöst Frage von BuggerBatch & Shell9 Kommentare

Hallo, ich habe glaube ich eine einfache Frage. Folgenden Code ausschnitt habe ich: Wenn ich jetzt bei jedem $var ...

Microsoft Office
Prüfen ob string im Tabellenblatt vorhanden
gelöst Frage von thomas1972Microsoft Office3 Kommentare

Hallo, ich lasse mit einem Script Teile eines Tabellenblattes suchen/ersetzen) Nur kommt es vor, dass gewisse Zeichen nicht vorhanden ...

Batch & Shell
Powershell - If Bedienung - Prüfe ob mehr als eine Datei vorhanden ist, dann mache weiter, sonst ignorier es
gelöst Frage von WeezytBatch & Shell15 Kommentare

Hallo zusammen, hab hier nen Skript zur gezielten Entfernung von Dateien im Unterverzechnis. In den Ordnern FPC1a und FPC1b ...

Batch & Shell
In Batch auf Erstelldatum einer Datei prüfen
gelöst Frage von AS-N00Batch & Shell5 Kommentare

Hallo, foolgendes Problem. Ich muss eine leer Datei "dpd.ini" in "d:\bw50" erstellen, wenn in einem Ordner "d:\bw50\dpd\export\" es keine ...

Neue Wissensbeiträge
Microsoft

Update KB4073578 für AMD CPU (Spectre und Meltdown Lücke)

Information von sabines vor 1 StundeMicrosoft

Wegen Problemen (BOSD, nicht startende PCs) wurde das Update KB4056897 und KB4056894 für AMD CPUs zurückgezogen. Dieses Update KB4073578 ...

Mac OS X

MacOS wo ist die Tilde ?

Tipp von Alchimedes vor 14 StundenMac OS X1 Kommentar

Hallo, ich hab eine MacOS qwertz Keyboard auf US Layout umgestellt da die Sonderzeichen besser erreichbar sind. Leider fehlt ...

Datenschutz

Weitere Informationen zum Sicherheitsproblem BeA

Information von Penny.Cilin vor 21 StundenDatenschutz

Im folgenden ein weiterer Bericht über die Sicherheitsprobleme von Bea. Fataler Konstruktionsfehler im besonderen elektronischen Anwaltspostfach Gruss Penny

Windows 10

Systemdienste behalten nach Win10 inplace-Upgrade nicht die ggf. modifizierte Startart bei

Tipp von DerWoWusste vor 22 StundenWindows 103 Kommentare

Stellt Euch vor, Ihr habt ein Win10 System und modifiziert dort die Startart von Systemdiensten. Zum Beispiel wollt Ihr ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...

Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von fyrb38Windows 1018 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Microsoft Office
Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei
Anleitung von SarekHLMicrosoft Office17 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...