10. 05. 2005, 13:37 # 1 MOF User Registrierung: 30. 06. 2003 Karma: VBA - Prüfen ob Dateizugriff möglich ist Hallo, ich hoffe ihr könnt mir meine Frage beantworten: Ich greife mittels VBA in einer Tabelle auf andere Tabellen über ein Netzwerk zu. (Funktioiert auch wunderbar). Wenn aber der User keinen Zugriff auf das Netzlaufwerk hat oder das Netzt nicht zur Verfügung steht funktioniert natürlich kein öffnen. Wie kann ich prüfen, ob auf diese Datein zugegriffen werden kann? Die Pfad für die Datein sind in der Tabelle vorhanden. Vba prüfen ob datei vorhanden program. Gruß Usi 21. 2005, 07:57 # 3 Threadstarter vor längerer Zeit hatte ich diese Frage gestellt. Ich hatte jetzt versucht die Lösung vom LS umzusetzten und bin leider gescheitert. Dieser Code prüft ja ob eine Datei geöffnet ist. Ich würde gerene prüfen ob der User Zugriffe auf dieverse Ordner hat. Diese Ordner können locale Ordener oder wie schon vorher erwähnt auch gemappte Laufwerke sein. Es müssen 3 Ordnerpfade überprüft werden. Mein Wunsch währe folgender: Es wird geprüft ob auf die diversen Pfade (nur Ordnerebene) zugegriffen werden kann.
Kennt sich da jemand aus? :) "krit as string" hab ich schon entfernt Hallo wie ist Jahr in DEN Tabelle (t_Archiv/t_Import) gespeichert Date/Text/Zahl? dein Dlookup bringt eifach das Datum des 1. Datensatzes in t_Import ist das so? Vba prüfen ob datei vorhanden download. möglich das du so was machen musst: datvorh = DCount("*", "t_Archiv", "Jahr = " & jahrimp) für Zahl oder eben je nach DatenTyp datvorh = DCount("*", "t_Archiv", "Jahr = ' " & jahrimp &" ' ") für String/Text Bei Date zuerst Datum für DCOUNT Aufbereiten: sowas: StrDatumFuerSql = Format(dat, "\#yyyy\-mm\-dd\#") Dein Vergleichskriterium ist eine Stringvariable und muss deshalb auch so eingebaut werden. datvorh allerdings sollte vom Typ Long sein, DCount gibt eine Zahl zurück und du vergleichst ja auch mit 0. Code: maike Hi! Sorry, dass ich mich erst so spät melde, aber ich bin die letzten Tage nicht dazu gekommen... @ Maikek: ich habe deinen Code probiert, prinzipiell funktioniert er FAST... ich habe Dim datvorh As Long, jahrimp As String datvorh = DCount("*", "t_Archiv", "Jahr = '" & jahrimp & "'") MsgBox "Jahr schon vorhanden" MsgBox "Nein, Jahr noch nicht vorhanden, Daten werden importiert" Funkt prinzipiell super, wenn ich die Daten das erste Mal importiere schreibt er, dass die Daten importiert werden und tut das auch...
Einleitung In dieser Ausgabe wollen wir verschiedene Möglichkeiten betrachten, mit denen man feststellen kann, ob eine Datei oder ein Ordner auf dem System existiert. Für diesen Zweck existieren in der Funktionsbibliothek von Visual Basic leider keine eigenen Funktionen. Deshalb muss eine Lösung auf anderem Wege gesucht werden. Die vorgestellten Möglichkeiten zur Existenzprüfung dienen nicht dazu, festzustellen, ob auf eine Datei oder einen Ordner zugegriffen werden kann, sondern können lediglich dazu benutzt werden, zu überprüfen, ob eine Datei oder ein Ordner existiert. Neben den vorgestellten Methoden gibt es noch eine Menge anderer Möglichkeiten. Weitere Informationen zu diesem Thema finden sich im entsprechenden Artikel von Jost Schwider. An dieser Stelle sei Jost Schwider für wichtige Hinweise, die in diesen Artikel Eingang gefunden haben, gedankt. VBA - Überprüfung ob Bild vorhanden - MS-Office-Forum. Die Kolumne wurde am 1. November 2005 auf Basis von Kommentaren ergänzt und überarbeitet. Existenzprüfung mit Visual Basic-eigenen Funktionen Folgende Funktion prüft mit Visual Basic-eigenen Mitteln, ob eine Datei oder ein Ordner existiert.
Bin absoluter VGA-Anfnger und hab mir die Lsung aus vorhandenen Makros zusammengebastelt. Also wrd ich mich sehr ber Tips freuen! Nicolaus Hobby-VBAler Verfasst am: 18. Mai 2010, 20:01 Rufname: Nic Wohnort: Rhein Main Gebiet Hi, wieso die ganzen Zwischenvariablen? Das kann doch auch in eine Zeile: Code: Dateipfad = Left(, InStrRev(, "\",, vbBinaryCompare)) Gruss Nic _________________ die Forenhelfer freuen sich ber eine Antwort rarosch excel und word kenner mit etwas vba Verfasst am: 02. Jan 2011, 02:14 Rufname: hi zusammen bei mir funzt leider die berprfung nicht (excel2000). ich erhalte den laufzeitfehler 52 (dateiname oder -nummer falsch). Sub dateiberprfung() Dim pfadtba As String pfadtba = "G:\9 Vorlagen\" If Dir(pfadtba) = "" Then MsgBox "Die Datei existiert nicht" Else: MsgBox "Datei gefunden" End Sub wre froh um hilfe. merci. gruss. VBA Prüfen, ob ein Ordner/Verzeichnis existiert (FolderExists) - eKiwi-Blog.de. rfe. _________________ da ist doch noch fleisch am knochen toms777 Interesse: EXCEL/VBA Verfasst am: 02. Jan 2011, 06:58 Rufname:
Im String, der den Pfad enthlt, fhrt das hier leider nicht zum Erfolg: "C:\temp\~*" Muss ich vielleicht mit der Left-Funktion auf das Zeichen prfen? Viele Gre Karsten eller Verfasst am: 06. Mrz 2010, 14:09 Rufname: Hallo Dies ~$ sind versteckte Dateien die von Word angelegt werden whred eine geffnet ist. Diese werden wenn Word nicht sauber geschlossen wird nich gelscht. um alle Dateien auch verstecke zu finden: Code: If Dir("D:\test\~*", 63) = "" Then Verfasst am: 06. Access vba prüfen ob datei vorhanden. Mrz 2010, 15:35 Rufname: Hallo, ahja, der Platzhalter funktioniert doch (da hatte ich mich nur vertippt). Habe das jetzt beim Schlieen des Formulars so gemacht: Dim pfad As String pfad = "c:\temp\~*. *" If IsNull(Dir(pfad)) = False Then Kill pfad Wenn eine versteckte Worddatei am Ende des Tages stehen bleibt, so sollte diese (bzw. alle) gelscht werden. Es wird auch im If Zweig die Datei erkannt (habe eine zu Testzwecken ins Verzeichnis gelegt), jedoch bringt die Kill-Anweisung den Fehler "Datei nicht gefunden".
Ausnahmen Der Name der Datei endet mit einem umgekehrten Schrägstrich (\). Beispiele In diesem Beispiel wird überprüft, ob die Datei vorhanden ist und die Informationen in einem Meldungsfeld bereitgestellt werden. If leExists("c:\") Then MsgBox("File found. ") Else MsgBox("File not found. ") End If Hinweise Wenn die Anwendung nicht über ausreichende Berechtigungen zum Lesen der angegebenen Datei verfügt, gibt False die FileExists Methode unabhängig von der Existenz des Pfads zurück. Die Methode löst keine Ausnahme aus. Gilt für: