ASP.net根據時間產生隨機檔案名稱

ASP中隨機檔案名稱的函數，在Asp.Net不用修改也能用

放到Module1.vb裡，聲明公有函數
在任何一個WebForm裡都能調用。
(Module1.vb在VB6.0就有了，看來.Net還是保留下來了)

Function makeFileName(ByVal fname) '根據時間組建檔案名
    fname = Now()
    fname = Replace(fname, "-", "")
    fname = Replace(fname, " ", "")
    fname = Replace(fname, ":", "")
    fname = Replace(fname, "PM", "")
    fname = Replace(fname, "AM", "")
    fname = Replace(fname, "上午", "")
    fname = Replace(fname, "下午", "")
    makefilename = fname & ".htm"
End Function

調用的方法：

Public Sub FileWrite(ByVal Str As String, ByVal myPath As String, ByVal myFileName As String) '新增檔案(內容,路徑,檔案名稱)

End Sub

Call FileWrite("I Like Asp.net","Path",makeFileName())