'原來用VB寫的封裝成dll供asp使用，后來升級(jí)到vb.net
'這個(gè)是我以前寫的電影站影片處理的一部份，程序挺簡(jiǎn)單的，沒怎么注釋，大家對(duì)付看
'program by someeyes
'需要聲明Imports System.IO命名空間

    Public Function myFileExists(ByVal pathName As String) As String '檢查文件是否存在
        If File.Exists(pathName) = False Then
            myFileExists = "<font color=""Red"">文件丟失</font>"
        Else
            myFileExists = "<font color=""#0066ff"">文件存在</font>"
        End If
    End Function

    Private sub myCreatDirectory(ByVal pathName As String) '創(chuàng)建文件夾
        Try
            If Directory.Exists(pathName) = False Then
                Directory.CreateDirectory(pathName)
            End If
        Catch e As Exception
            myErrMsg = myErrMsg & "創(chuàng)建" & pathName & "文件夾的時(shí)候出現(xiàn)一個(gè)意外的錯(cuò)誤."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一個(gè)意外的錯(cuò)誤,詳細(xì)情況請(qǐng)查看日志文件!<br>")
        End Try

    End Sub

    Private Sub myDelDirectory(ByVal pathName As String) '刪除文件夾

        Try
            If Directory.Exists(pathName) = True Then
                Directory.Delete(pathName)
            End If
        Catch e As Exception
            myErrMsg = myErrMsg & "刪除" & pathName & "文件夾的時(shí)候出現(xiàn)一個(gè)意外的錯(cuò)誤."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一個(gè)意外的錯(cuò)誤,詳細(xì)情況請(qǐng)查看日志文件!<br>")
        End Try

    End Sub

    Private Sub myMoveFile(ByVal pathName As String, ByVal target As String)  '移動(dòng)文件夾
        Try
            File.Move(pathName, target)
        Catch e As Exception
            myErrMsg = myErrMsg & "從" & pathName & "移動(dòng)文件到" & target & "的時(shí)候出現(xiàn)一個(gè)意外的錯(cuò)誤."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一個(gè)意外的錯(cuò)誤,詳細(xì)情況請(qǐng)查看日志文件!<br>")
        End Try
    End Sub

    Private Sub myCopyFile(ByVal fsource As String, ByVal fdestination As String)
        Try
            File.Copy(fsource, fdestination, False)
        Catch e As Exception
            myErrMsg = myErrMsg & "從" & fsource & "復(fù)制文件到" & fdestination & "的時(shí)候出現(xiàn)一個(gè)意外的錯(cuò)誤."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一個(gè)意外的錯(cuò)誤,詳細(xì)情況請(qǐng)查看日志文件!<br>")
        End Try
    End Sub

最新評(píng)論