Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2003
    Messaggi
    375

    VBA Access 2003 trovare un file

    Come posso trovare attraverso il codice vba di access 2003 il file piu' recente o maggiore alfabeticamente (è uguale per me) avendo la direttory e una parte del nome?

    Mi spiego ho una direttory in cui ci sono salvati molti file che si chiamano così :

    Parte_Costanteggmmaaaahhmm.xls

    Io conosco come si chiama la parte costante e cerco il file + recente o di nome maggiore considerando che gg = giorno mm = mese aaaa = anno hh = ora e mm = minuto?

    Credo che devo utilizzare dei parametri del comando DIR ma non riesco a trovarli



    Chi puo' aiutarmi???

    grazie.

  2. #2
    Utente di HTML.it
    Registrato dal
    Oct 2003
    Messaggi
    375
    Sono sempre a 0 come spunti

  3. #3
    Utente di HTML.it L'avatar di gibra
    Registrato dal
    Apr 2008
    residenza
    Italy
    Messaggi
    4,244
    Usare Dir() può andar bene, ma non basta.
    In pratica devi fare un ciclo, per leggere tutti i file, così da trovare il più recente confrontando i nomi dei due file. Più o meno così:
    codice:
    dim sFilename as string
    dim sFileRecente as string 
    dim pattern as string
    dim sParte_Costante as string
    sParte_Costante = "xyz"
    pattern = sParte_Costante & "*.*"
    
    sFilename = Dir(pattern)
    if sFilename > vbNullstring then
        sFileRecente = sFilename
    else
        msgbox "non vi sono file."
        exit sub
    end if
    do while sFilename <> vbNullString
        sFilename = Dir()
        if sFilename > sFileRecente then
            sFileRecente = sFilename
        end if
    loop
    
    debug.print "File recente = " & sFileRecente

    Ho scritto 'al volo', quindi controlla ed occhio ad eventuali errori.


Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.