自己写的文件操作的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 = “文件丢失”
 Else
 myFileExists = “文件存在”
 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(“程序遇到一个意外的错误,详细情况请查看日志文件! ”)
 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(“程序遇到一个意外的错误,详细情况请查看日志文件! ”)
 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(“程序遇到一个意外的错误,详细情况请查看日志文件! ”)
 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(“程序遇到一个意外的错误,详细情况请查看日志文件! ”)
 End Try
 End Sub

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