variable nicht definiert

also ich habe folgendes problem

Code:

---

Private Function DBExists(paramFileSpec As String) As Boolean
    'this function checks wheter de db exists
   
    If fs1.Dir&#40;paramFileSpec&#41; <> "" Then
        DBExists = True
    Else
        DBExists = False
    End If
   
End Function

---

fs1 = fileControllSystem

wenn ich diesen code im frmMain ausführe, dann geht es prima. wenn ich den aber in ein modul packe, dann kommt die meldung, fs1 sei eine nicht deklarierte variabel.

Nun also die Fragen
1. Warum?
2. Ist es möglich, dass ich die Funktion in ein Modul packen kann?

Danke

ich kenn mich nicht mit VB aus, aber hast du Fs1 als global gültig deklariert? oder im Modul selber initiiert? wenn nicht, könnte das das Problem sein

Genau da lag auch das Problem. Ich hatte fs1 auf der Hauptform plaziert. Somit konnte das mod fs1 gar nicht "sehen".

Ich habe fs1 auf der Form gelöscht und folgenden Code im mod hinzugefügt:

Code:

---

Public mdlFileSys As FileCtl.FileSystem
Set mdlFileSys = CreateObject("FileCtl.FileSystem")

---

Nun geht es ohne Probleme.