- #1
B
Basti0100
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 13.09.2002
- Beiträge
- 54
- Reaktionspunkte
- 0
- Ort
- irgentwo im nirgentwo
Also ich hab da volgenden Quelltext.
Private Sub cmdSearch_Click()
Dim Path As String
Dim FileToSearch As String
Set FSO = New FileSystemObject
Path = txtPfadname.Text
FileToSearch = suchdaten.Text
' alle Ordner nach gewünschter Datei durchsuchen
Screen.MousePointer = vbHourglass
FSO_SearchFile Path, FileToSearch
Screen.MousePointer = vbNormal
End Sub
Und eigentlich müste er gehen aber es wird mir immer wieder angezeigt Benutzerdefinierter Typ nicht definiert
Das Private Sub wird gelb untermalt und das Set FSO = New FileSystemObject ist blau makiert.
Was heist das jetzt und was kann ich dagegen machen?
Private Sub cmdSearch_Click()
Dim Path As String
Dim FileToSearch As String
Set FSO = New FileSystemObject
Path = txtPfadname.Text
FileToSearch = suchdaten.Text
' alle Ordner nach gewünschter Datei durchsuchen
Screen.MousePointer = vbHourglass
FSO_SearchFile Path, FileToSearch
Screen.MousePointer = vbNormal
End Sub
Und eigentlich müste er gehen aber es wird mir immer wieder angezeigt Benutzerdefinierter Typ nicht definiert
Das Private Sub wird gelb untermalt und das Set FSO = New FileSystemObject ist blau makiert.
Was heist das jetzt und was kann ich dagegen machen?