CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛
CXYVIP官网源码交易平台_网站源码_商城源码_小程序源码平台-丞旭猿论坛

自己写的文件操作的function和Sub vb dll

‘原来用VB写的封装成dll供asp使用,后来升级到vb.net
‘这个是我以前写的电影站影片处理的一部份,程序挺简单的,没怎么注释,大家对付看
‘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) ‘创建文件夹
        Try
            If Directory.Exists(pathName) = False Then
                Directory.CreateDirectory(pathName)
            End If
        Catch e As Exception
            myErrMsg = myErrMsg & “创建” & pathName & “文件夹的时候出现一个意外的错误.”
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write(“程序遇到一个意外的错误,详细情况请查看日志文件!<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 & “文件夹的时候出现一个意外的错误.”
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write(“程序遇到一个意外的错误,详细情况请查看日志文件!<br>”)
        End Try

    End Sub

    Private Sub myMoveFile(ByVal pathName As String, ByVal target As String)  ‘移动文件夹
        Try
            File.Move(pathName, target)
        Catch e As Exception
            myErrMsg = myErrMsg & “从” & pathName & “移动文件到” & target & “的时候出现一个意外的错误.”
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write(“程序遇到一个意外的错误,详细情况请查看日志文件!<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 & “复制文件到” & fdestination & “的时候出现一个意外的错误.”
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write(“程序遇到一个意外的错误,详细情况请查看日志文件!<br>”)
        End Try
    End Sub

以上就是【自己写的文件操作的function和Sub vb.net dll】的全部内容了,欢迎留言评论进行交流!

© 版权声明
THE END
喜欢就支持一下吧
点赞0赞赏 分享
相关推荐
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片

    暂无评论内容