Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen ob eine Datei vorhanden ist
 22.03.2018 09:20:48 elgo
Solved
22.03.2018 09:45:48 elgo
NotSolved

Ansicht des Beitrags:
Von:
elgo		 Datum:
22.03.2018 09:20:48		 Views:
1133		 Rating:
     
Antwort:
 Nein
Thema:
Prüfen ob eine Datei vorhanden ist
Hallo , ich verzweifle an diesen Problem ! Der Code funktioniert wen ich den mit der Variante_1 ausführe , Variante_2 findet die Datei nicht , obwohl die Datei vorhanden ist. Variante_1 findet die ja auch. Kann mir da jemand helfen , ich mach jetzt schon Tage damit rum ? Noch eine Frage zum verfassen eines Beitrags , Codeschnipsel am besten über den Code-Button im Text-Editor einfügen, was ist damit gemeint? Danke schon mal !!! Private Sub srtm_vorhanden_Click() If srtm_vorhanden = False Then GoTo Endstrm End If ' ab hier wenn srtm_vorhanden = Thrue Dim strDatei As String Dim Endung As String Dim Name As String Name = Cells(5, 3) ' übernahme von Cells(5, 3) wird im excel Formular eingegeben und ist im Beispiel "Test_srtm" Endung = ".osm" ' Endung der Datei wird in excel Formular festgelegt strDatei = "" ' die Datei Hoehendaten_MyOsmTopo-Test_strm.osm ist im Verzeichnis vorhanden ' Variante_1 funktioniert und die Datei wird gefunden es wird ausgegeben datei vorhanden ' Variante_1: ' strDatei = "C:\MyOsmTopo\Kartenprojekt_MyOsmTopo-Test_srtm\Hoehendaten_MyOsmTopo-Test_strm.osm" ' Variante_2 funktioniert nicht obwohl der String strDatei gleich der Variante_1 ist ' und die Datei Hoehendaten_MyOsmTopo-Test_strm.osm im Verzeichnis vorhanden ist, es wird ausgegeben Datei fehlt ' Variande_2: strDatei = "C:\MyOsmTopo\Kartenprojekt_MyOsmTopo-" + Name + "\Hoehendaten_MyOsmTopo-" + Name + Endung MsgBox strDatei ' beide Varianten geben den gleichen String strDatei aus warum funktioniert Variande_2 nicht If Dir(strDatei) = "" Then MsgBox "Datei fehlt" srtm_vorhanden = False Else MsgBox "Datei vorhanden" End If Endstrm: End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfen ob eine Datei vorhanden ist
 22.03.2018 09:20:48 elgo
Solved
22.03.2018 09:45:48 elgo
NotSolved