File Size

[Venugopal Vemuri]

Hi,
I want to re-name a file (.txt ) if size is greater
than 10 MB. How do I do it? An early reply would be
appreciated.
Regards,
Venugopal

 

[MikeC]

Venugopal,

The below function will rename a file for you based on a
size criteria. You will need to supply the fully
qualified file path.

Private Function fnRenameFileAsTxt(strOldFileSpec As
String)

Dim fs As Object
Dim f As Object
Dim strNewFileSpec As String

strNewFileSpec = Left(strOldFileSpec, InStrRev
(strOldFileSpec, ".")) & "txt"

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(strOldFileSpec)

If f.Size > 1024000 Then
MsgBox f.Name & " is " & f.Size & " bytes."
If fs.FileExists(strOldFileSpec) And Not
fs.FileExists(strNewFileSpec) Then
Name strOldFileSpec As strNewFileSpec
Else
MsgBox "File name already exists, so file
cannot be renamed."
End If
End If

End Function

 

[Brendan Reynolds]

Public Sub RenameTextFile()

Dim strFile As String
Dim intFile As Integer
Dim lngFileLength As Long
Dim strNew As String

strFile = CurrentProject.Path & "\bigfile.txt"
intFile = FreeFile
Open strFile For Input As intFile
lngFileLength = LOF(intFile)
Close intFile

'LOF() returns size in bytes.
If lngFileLength > 10485760 Then
strNew = CurrentProject.Path & "\archive.txt"
Name strFile As strNew
End If

End Sub

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.