Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

chDrive

chDrive
12.12.2005 06:27:22
F
Guten Morgen,
ich verwende im code:
chDrive("i")
chDir("i:\.......usw")
Das Laufwerk i befindet sich auf dem Server.
Ist es möglich, falls das Laufwerk nicht erreichbar ist,
das das Prorgramm auf C:\ zugreift.
Und wenn ja, dann wie ?
Mit freundlichen Grüssen Frank

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: chDrive
12.12.2005 08:36:44
Hajo_Zi
Hallo FRank,
ich kopiere mal mein komplettes Beispiel. Prüf ob Ordner vorhanden.

Option Explicit
Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub
Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
If Dir("C:\Eigene Dateien\") <> "" Then
MsgBox "vorhanden"
Else
MkDir "C:\Eigene Dateien\\"
MsgBox "nicht vorhanden"
End If
End Sub
Sub Ordner_vorhanden()
'   von Berti Koern
Dim Fso, Ordnername
Set Fso = CreateObject("Scripting.FileSystemObject")
Ordnername = "C:\Eigene Dateien\"
'    MsgBox Fso.FolderExists(Ordnername)
If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub
Sub Datei_vorhanden()
'   von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
End Sub



Anzeige
AW: chDrive
12.12.2005 09:54:33
F
Hallo Hajo,
vielen Dank für deine Hilfe.
Mit freundlichen Grüssen Frank
AW: chDrive
12.12.2005 08:55:20
Heiko
Hallo Frank,
z.B. so:
Private_Declare_Funktion gehört in eine Zeile mit jeweils einem Leerzeichen dazwischen.
Private Declare

Function GetLogicalDrives& Lib "kernel32" ()

Sub VerPr()
Dim lngDrives As Long
lngDrives = GetLogicalDrives
' 9 für den 9. Buchstaben also das I
If lngDrives And 2 ^ 9 Then
ChDrive ("i")
ChDir ("i:\.......usw")
Else
ChDrive ("C")
ChDir ("C:\Copy") ' Das dann natürlich anpassen.
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: chDrive
12.12.2005 09:55:23
F
Hallo Heiko,
vielen Dank für deine Hilfe.
Mit freundlichen Grüssen Frank
O.T. falscher Zeilenumbruch bei private Declare...
12.12.2005 17:01:05
Reinhard
Hi Heiko,
ich setz immer ein <pre> vor und ein </pre> nach den Codes oder Formeln mit größergleich usw.
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: O.T. falscher Zeilenumbruch bei private Declare...
12.12.2005 18:57:31
Heiko
Hallo Reinhard,
danke für den Tipp, werde ich demnächst mal testen.
Gruß Heiko

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige