title image


Smiley prüfen ob Pfad vorhanden
Hallo Ihr,



ich hab folgendes Problem.

Ich habe meinem Tool einen Pfad aus einer ini Datei gegeben und überprüfe dann die FileLen der angegebenen Datei.

Wie prüfe ich aber, ob der Pfad überhaupt existiert ?



Private Sub cmdOk_Click()



'Das ist der Serverpfad

s = GetINIString(Dateiname$, "Pfad", "Quelldatei")

DateinameServer = s

MsgBox s



'das ist der lokale Pfad

m = GetINIString(Dateiname$, "Pfad", "Zieldatei")

DateiLokal = m

MsgBox m

'******************************************************

'*******************************************************

hier denke ich sollte die Prüfung rein ob der angegebene Pfad überhaupt existiert.

'*******************************************************





GroesseServerDatei = FileLen(DateinameServer)

GroesseLokalDatei = FileLen(DateiLokal)

'MsgBox "Fehler, Datei nicht gefunden"





Debug.Print GroesseServerDatei

Debug.Print GroesseLokalDatei



If GroesseServerDatei > GroesseLokalDatei Then

'kopiere die Datei vom Server



MsgBox "Die neue Datei wird vom Server geholt", vbOKOnly & vbInformation, "ACHTUNG"



FileCopy DateinameServer, DateiLokal



Else

MsgBox "Es ist keine neue Datei auf dem Server verfügbar", vbOKOnly & vbInformation, "Information"

End If

Unload Me



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: