Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

if dir liefert fehler typen unverträglich

if dir liefert fehler typen unverträglich
Heinzs
Hallo ihr wissenden,
in nachfolgendem Code erhalte ich in der Zeile if dir(gn_such) then Fehler 13, Typen unverträglich. Auch das Einfügen eines DIM gn_such as string brachte keine Abhilfe.
gn_such = "\\eudehil-dxp130\c$\autoexec.bat"
If Dir(gn_such) Then
...
else
...
endif
Sinn des Stamenets ist es zu prüfen, ob ein PC im Netzwerk existiert; Rechte existieren hierfür.
Hat jemand einen Tip?
Danke für Hilfe!
Heinz

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: if dir liefert fehler typen unverträglich
19.07.2010 12:33:31
Tino
Hallo,
Du must in der If eine Prüfung auf True oder False machen.
Gruß Tino
AW: if dir liefert fehler typen unverträglich
19.07.2010 12:37:31
Kawensmann
Hallo,
DIR liefert einen String zurück. Du testet auf Boolean.
If Dir(gn_such) "" Then
Gruß
Kawensmann
AW: if dir liefert fehler typen unverträglich
19.07.2010 12:44:32
Heinzs
Danke für Hilfe! das funktioniert nun!
Gruß Heinz
if dir liefert fehler typen unverträglich
19.07.2010 12:45:36
Anton
Hallo Heinz,
probier's so:
Code:

Sub b()
  Set fso = CreateObject("Scripting.FileSystemObject")  
  If (fso.FileExists("\\eudehil-dxp130\c$\autoexec.bat")) Then  
   '...
  Else
   '...
  End If  
  Set fso = Nothing  
End Sub  


mfg Anton
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige