Imprimir Página - Crear un orden numérico para un directorio?

Ayuda como podre enumerar cada carpeta partiendo de este directorio D:\ORDEN _DATOS de aquí cada carpeta tenga su clave única y que se guarde en un *.ini dentro de la carpeta al número que se le dio, que el valor que se le crea lo haga correspondiente a orden de numeración o alfabético

Ejemplo:

   01 1 1
D:\ORDEN _DATOS\A\CANTO

   01 1 2
D:\ORDEN _DATOS\A\COCHE

   01 2 1
D:\ORDEN _DATOS\B\BALON

   01 3 1
D:\ORDEN _DATOS\F\AVION

Que al escribir un texbox 0112 me llave al contenido de la carpeta coche

hola, te puedo ayudar con el archivo ini:

En un Módulo

Código:

'Función api que recupera un valor-dato de un archivo Ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'Función api que Escribe un valor - dato en un archivo Ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

Public Function Saveini(Path_INI As String, Title As String, Key As String, Valor As Variant) As String
  
    WritePrivateProfileString Title, Key, Valor, Path_INI
  
End Function

Public Function Openini(Path_INI As String, Title As String, Key As String, Default As Variant) As String
  
    Dim bufer As String * 256
    Dim Len_Value As Long
  
    Len_Value = GetPrivateProfileString(Title, Key, Default, bufer, Len(bufer), Path_INI)
          
    Openini = Left$(bufer, Len_Value)
  
End Function

Para guardar en el ini:

Código:

Call Saveini(App.path & "\Archivo.ini", "Clave-unica-d-carpeta", "RutaOriginal", "D:\ORDEN_DATOS\A\CANTO")

Para consultar:

Código:

Variable = Openini(App.path & "\Archivo.ini", textbox1.text, "RutaOriginal", "")

espero que te sirva de algo

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: cael1011 en 5 Septiembre 2015, 21:16 pm