---

Hallo zusammen,

ich habe ein kleines Problem mit dem folgenden Code:

Dim fso As FileSystemObject
Dim Pfadtest2 As Boolean

    With fso
    Pfadtest2 = False
    Pfadtest2 = .FolderExists(Pfad)
    Filetest = .FileExists(Pfadkompl)
   
    End With

Wenn ich mir den Code in Einzelschritten betrachte, springt der Cursor nach der Zeile "Pfadtest2 = .FolderExists(Pfad)" wieder auf die Zeile With fso und durchläuft den ganzen Code von dort aus wieder neu. Er wird aber dann an der Zeile "Pfadtest2 = .FolderExists(Pfad)" abgebrochen mit folgender Fehlermeldung:

Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt

Was kann das sein????
Bitte helft mir, ich bin mitlerweile am verzweifeln!!!!

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Was soll dein Programm eigentlich machen ?

Die Variablen Pfad, Filetest und Pfadkompl sind richtig deklariert und sind nicht "leer" ? Wenn du ein Breakpoint gesetzt hast, das Programm laufen lässt, kannst du mit dem du mit der Maus über die Variable fährst, den Wert ablesen...

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi auch,

ich verstehs auch nicht ganz, warum erst Pfadtest2=false? Anyway,
versuch's trotzdem mal mit:

Dim fso As New FileSystemObject

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nancy,

das hatte ich auch eingetragen. Ich habe es gelöst. Das Problem war, das ich ganz oben Private fso As New FileSystemObject stehen hatte und unten nochmals Dim fso As FileSystemObject. Das hat sich nicht so ganz miteinander verstanden. Ich habe das Dim fso As FileSystemObject rausgelöscht und jetzt funzt es.

@daywa1k3r
Ich wollte einfach nur überprüfen, ob der Pfad und / oder die Datei vorhanden sind.

Trotzdem Danke an Euch beiden für die schnelle "Hilfe".

------------------

cu
Heiko

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Naja, dann "MicrosoftScriptingRuntime" includen und der Code lautet:

Code:

---

Public Sub Test_fso()
   
    Dim fso As New FileSystemObject
    Dim sPfad As String
    Dim sFile As String
   
    sPfad = "C:\temp"
    sFile = "C:\temp\test.txt"
   
    MsgBox sPfad & " exist = " & fso.FolderExists(sPfad) & vbCrLf & sFile & " exist = " & fso.FileExists(sFile)
         
End Sub

---

HTH

------------------
Grüße daywa1k3r

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP