File Size

  • Thread starter Thread starter Venugopal Vemuri
  • Start date Start date
V

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
 
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
 
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.
 
Back
Top