主頁 > 知識(shí)庫 > 自己寫的文件操作的function和Sub vb.net dll

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

熱門標(biāo)簽:河北智能外呼系統(tǒng)軟件 伊春外呼業(yè)務(wù)系統(tǒng) 福建外呼增值業(yè)務(wù)線路 綿陽防封電銷卡價(jià)格 電銷機(jī)器人源碼網(wǎng)盤下載 中國辦理電信400電話 調(diào)度系統(tǒng)外呼 電銷機(jī)器人教育 宜賓語音外呼系統(tǒng)軟件
'原來用VB寫的封裝成dll供asp使用,后來升級(jí)到vb.net
'這個(gè)是我以前寫的電影站影片處理的一部份,程序挺簡單的,沒怎么注釋,大家對付看
'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ì)情況請查看日志文件!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ì)情況請查看日志文件!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ì)情況請查看日志文件!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ì)情況請查看日志文件!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)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《自己寫的文件操作的function和Sub vb.net dll》相關(guān)的同類信息!
  • 本頁收集關(guān)于自己寫的文件操作的function和Sub vb.net dll的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章