Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Psyke1 en Noviembre 24, 2012, 05:29:32 pm
-
Necesito saber si tengo permisos de escritura en una carpeta.
Se me ocurrió solucionarlo creando un archivo y controlando los errores, pero me parece demasiado feo. ::)
¿Alguna idea?
Gracias.
-
Hola yo use una ves esta funcion de Karcrack que es algo asi como decis vos pero es rápida y funciona bien.
Public Enum AccessType
GENERIC_READ = &H80000000
GENERIC_WRITE = &H40000000
GENERIC_READWRITE = &HC0000000
End Enum
Public Function CheckAccess(ByVal sPath As String, ByVal dwDesiredAccess As AccessType) As Long 'by Karcrack
Dim lRet As Long
lRet = CreateFile(sPath, dwDesiredAccess, FILE_SHARE_READ + FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0)
If (lRet <> INVALID_HANDLE_VALUE) Then
Call CloseHandle(lRet)
CheckAccess = 1
End If
End Function
completa las apis y constantes.
-
Gracias LeandroA!
Al menos funciona y es un poco más elegante. :P
DoEvents! :P