Function CleanFilename(FileN, Optional Replacewith = "")
' Cleans filename from non-supported characters
Rett = FileN
Rett = Replace(Rett, " <", Replacewith)
Rett = Replace(Rett, " >", Replacewith)
Rett = Replace(Rett, ":", Replacewith)
Rett = Replace(Rett, Chr(34), Replacewith)
Rett = Replace(Rett, "/", Replacewith)
Rett = Replace(Rett, "\", Replacewith)
Rett = Replace(Rett, "|", Replacewith)
Rett = Replace(Rett, "?", Replacewith)
Rett = Replace(Rett, "*", Replacewith)
' Rett = Replace(Rett, "", "")
CleanFilename = Rett
End Function
' Cleans filename from non-supported characters
Rett = FileN
Rett = Replace(Rett, " <", Replacewith)
Rett = Replace(Rett, " >", Replacewith)
Rett = Replace(Rett, ":", Replacewith)
Rett = Replace(Rett, Chr(34), Replacewith)
Rett = Replace(Rett, "/", Replacewith)
Rett = Replace(Rett, "\", Replacewith)
Rett = Replace(Rett, "|", Replacewith)
Rett = Replace(Rett, "?", Replacewith)
Rett = Replace(Rett, "*", Replacewith)
' Rett = Replace(Rett, "", "")
CleanFilename = Rett
End Function
FileN, Optional Replacewith = ""
Views 92
Downloads 49
CodeID
DB ID
ANmarAmdeen
607
Revisions
v1.0
Tuesday
February
22
2022