下面是我写的一个文件命名函数,能在我的程序中正常使用 --------------------------------------------------------Public Function RenameFile(sName As String, sNewName As String, Optional bPrompt As Boolean = False) As Long '************************* '*** RenameFile(): Use Name to Rename the file(move and rename file) '*** sName: The old file path and name ' if there is not a path name(e.g. test.txt) , ' search the file in the current directory. '*** sNewName: The new File name '*** Return: when success,return 0;else return the error number(non-zero) '*** Create on 2002-08-06 ,zdleek '************************* RenameFile = 0 If sName = "" Or sNewName = "" Then Exit Function
On Error GoTo RenErr Name sName As sNewName 'App.Path & "\LogBackup" If bPrompt Then _ MsgBox "Rename the file success.The new name is " _ & vbCrLf & sNewName, vbInformation, "Rename File" Exit Function RenErr: RenameFile = Err.number If Not bPrompt Then Exit Function
MsgBox "Rename the file error(" & Err.number & "). " _ & Err.Description, vbCritical, "Rename File"End Function
高效,简洁,例子见MSDN。
^_^
replace是VB里的正则表达式哦。:)
2、把文件的某一行删除通常要新建一个文件(不包含要删除的内容),然后删除旧的文件;
3、文件夹重命名可以直接用rename oldfolder newfolder,具体用法请看msdn.同样可用于文件。
rename只适合空文件夹。
--------------------------------------------------------Public Function RenameFile(sName As String, sNewName As String, Optional bPrompt As Boolean = False) As Long
'*************************
'*** RenameFile(): Use Name to Rename the file(move and rename file)
'*** sName: The old file path and name
' if there is not a path name(e.g. test.txt) ,
' search the file in the current directory.
'*** sNewName: The new File name
'*** Return: when success,return 0;else return the error number(non-zero)
'*** Create on 2002-08-06 ,zdleek
'************************* RenameFile = 0
If sName = "" Or sNewName = "" Then Exit Function
On Error GoTo RenErr
Name sName As sNewName 'App.Path & "\LogBackup"
If bPrompt Then _
MsgBox "Rename the file success.The new name is " _
& vbCrLf & sNewName, vbInformation, "Rename File" Exit Function
RenErr:
RenameFile = Err.number
If Not bPrompt Then Exit Function
MsgBox "Rename the file error(" & Err.number & "). " _
& Err.Description, vbCritical, "Rename File"End Function