Asunto : duda con codigo me sale un error  Autor : ricardo  Fecha : 13/11/2009 15:48
Responder a este mensaje
bueno manes tegno una duda yo soy nuevo en esto de vb y tengo una duda con un codigo que sirve para buscar un archivo especifico en todo el directorio

Dim x As Integer
Dim strDirs As String
Dim strDir As String
Dim strEntry As String
strDirs = "c:\" & vbNullChar
Do While Len(strDirs)
x = InStr(strDirs, vbNullChar)
strDirs = Left$(strDirs, x - 1)
strDirs = Mid$(strDirs, x + 1)
If Len(Dir$(strDir & strFile)) Then
PathTo = strDir & Dir$(strDir & strFile)
Exit Function
End If
strEntry = Dir$(strDir & "*.*", vbDirectory)
Do While Len(strEntry)
If (GetAttr(strDir & strEntry) And vbDirectory) Then
If strEntry <> "." And strEntry <> ".." Then
strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
End If
End If
strEntry = Dir$()
Loop
Loop
PathTo = ""

End Function

ese es el codigo pero en la linea 8 en el left$ me sale un error y me dice que no tiene parametros y no se puede indizar...! noc q hacer, el q lo pueda solucionar se lo agradeceria mucho :)