Kazalo
Naslednja koda bo preverila, ali je ime datoteke veljavno. To je uporabno, če vaša koda zahteva uporabniško ime datoteke. Preden nadaljuje in bo morda generiral napako, bo preveril, ali je ime datoteke veljavno.
Potrdite ime datoteke
Ta funkcija preveri, ali je spremenljivka »Ime datoteke« veljavno ime datoteke:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Funkcija ValidateFileName (ByVal FileName As String) Kot BooleanApplication.ScreenUpdating = NapačnoDim wb Kot delovni zvezek'Preverite, ali v imenu datoteke ni ničesar.Če je FileName = "" PotemValidateFileName = FalsePojdi na ExitProcKonec Če'Ustvari temp datotekoPri napaki Pojdi na InvalidName:Nastavi wb = Delovni zvezki.Dodajwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51On Napaka Nadaljuj Naprej'Zapri Templovo datoteko Excelwb.Zapri False'Izbriši Temp Excel datotekoKill Environ ("temp") & "\" & FileName & ".xlsx"'Preverjeno ime datoteke - Izhod iz funkcijeValidateFileName = ResPojdi na ExitProc'Če datoteke ni mogoče ustvaritiNeveljavno ime:On Napaka Nadaljuj Naprej'Zapri Templovo datoteko Excelwb.Zapri False'Ime datoteke ni preverjeno - zapustite funkcijoValidateFileName = FalseExitProc:Application.ScreenUpdating = NapačnoKončana funkcija |
Funkcijo lahko pokličete tako:
| 12345 | Pod test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")End Sub |
Ta preskusni postopek bo prikazal TRUE ali FALSE v neposrednem oknu.
