chDrive

Forumthread: chDrive

chDrive

12.12.2005 06:27:22

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

AW: chDrive

12.12.2005 08:36:44

Hajo_Zi
AW: chDrive

12.12.2005 09:54:33

F
AW: chDrive

12.12.2005 08:55:20

Heiko
AW: chDrive

12.12.2005 09:55:23

F
O.T. falscher Zeilenumbruch bei private Declare...

12.12.2005 17:01:05

Reinhard
AW: O.T. falscher Zeilenumbruch bei private Declare...

12.12.2005 18:57:31

Heiko

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

AW: chDrive

12.12.2005 09:54:33

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 !

AW: chDrive

12.12.2005 09:55:23

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)

Forumthread: chDrive

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread