Returns cleaned file name of invalid characters.
Needs to be modified if used for full path and file name.
Function Filename_Clean(FileN)
' Cleans file name from characters that are not accepted
' like / ' "
' More to add later
'
Rett = FileN
Rett = Replace(Rett, " <", "")
Rett = Replace(Rett, " >", "")
Rett = Replace(Rett, ":", "")
Rett = Replace(Rett, """", "")
Rett = Replace(Rett, "/", "")
Rett = Replace(Rett, "\", "")
Rett = Replace(Rett, "|", "")
Rett = Replace(Rett, "?", "")
Rett = Replace(Rett, "*", "")
Rett = Replace(Rett, "'", "")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, "", "")
Filename_Clean = Rett
End Function
' Cleans file name from characters that are not accepted
' like / ' "
' More to add later
'
Rett = FileN
Rett = Replace(Rett, " <", "")
Rett = Replace(Rett, " >", "")
Rett = Replace(Rett, ":", "")
Rett = Replace(Rett, """", "")
Rett = Replace(Rett, "/", "")
Rett = Replace(Rett, "\", "")
Rett = Replace(Rett, "|", "")
Rett = Replace(Rett, "?", "")
Rett = Replace(Rett, "*", "")
Rett = Replace(Rett, "'", "")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, " ", " ")
Rett = Replace(Rett, "", "")
Filename_Clean = Rett
End Function
FileN
Views 131
Downloads 64
CodeID
DB ID
ANmarAmdeen
602
Revisions
v1.0
Wednesday
January
11
2023