FlowFact - Entwicklungstools

zurück

Function - vbDir
vb-Funktion Dir

  Function vbDir(Optional ByVal strPath As String = "", Optional ByVal lngAttributes As Long = 0) As String  
 




Public Function vbDir(Optional ByVal strPath As String = "", Optional ByVal lngAttributes As Long = 0) As String
    If strPath = "" Then
        vbDir = Dir()
    Else
        vbDir = Dir(strPath, lngAttributes)
    End If
End Function