Sommario
Il codice seguente convaliderà se un nome file è valido. Questo è utile se il tuo codice richiede un nome file immesso dall'utente. Verificherà che il nome del file sia valido prima di procedere ed eventualmente generare un errore.
Convalida nome file
Questa funzione verifica che la variabile "NomeFile" sia un nome file valido:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Funzione ValidateFileName(ByVal FileName As String) As BooleanApplication.ScreenUpdating = FalseDim wb come cartella di lavoro' Non controlla nulla nel nome del file.Se FileName = "" AlloraValidateFileName = FalseVai a ExitProcFinisci se"Crea file temporaneo"In caso di errore GoTo InvalidName:Imposta wb = Cartelle di lavoro.Aggiungiwb.Salva con nome Ambiente("temp") & "\" & NomeFile & ".xlsx", 51In caso di errore Riprendi Avanti"Chiudi file temporaneo Excel"wb.Chiudi Falso"Elimina file Excel temporaneo"Kill Environ("temp") & "\" & FileName & ".xlsx""Nome file convalidato - Esci dalla funzione"ValidateFileName = TrueVai a ExitProc'Se il file non può essere creatoNome non valido:In caso di errore Riprendi Avanti"Chiudi file temporaneo Excel"wb.Chiudi Falso"Nome file non convalidato - Esci dalla funzione"ValidateFileName = FalseExitProc:Application.ScreenUpdating = FalseFine funzione |
Puoi chiamare la funzione in questo modo:
12345 | Sub test_ValidateFileName()Debug.Print ValidateFileName("fda?/")Fine sottotitolo |
Questa procedura di test restituirà VERO o FALSO nella finestra immediata.