亚瑟国产精品,亚洲欧美中文字幕,欧美一区永久视频免费观看

'原來用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

標(biāo)簽：銅川新鄉(xiāng) 延邊蘇州河池電商邀評(píng) 優(yōu)質(zhì)小號(hào) 那曲

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《自己寫的文件操作的function和Sub vb.net dll》，本文關(guān)鍵詞自己,寫的,文件,操作,的,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

自己寫的文件操作的function和Sub vb.net dll