VB-问题，请教！

来源：百度知道 编辑：UC知道 时间：2024/05/18 00:19:05
如何让程序检测C:\1.TXT 是否大于200KB，若大于就删除。
因为VB的TEXT不能快速打开这些大的文本阿！！1.TXT是日志。

如果有其他方法能使1.TXT无论多大都可以打开都话请告诉我，谢谢！！！
我是VB菜鸟，希望各位高手能有代码演示！谢谢！！！

object.Size

object 总是一个 File 或 Folder 对象。

Sub ShowFolderSize(fispec)
Dim a, b, c
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.GetFolder(fispec)
c = UCase(b.Name) & " uses " & b.size & " bytes."
MsgBox c, 0, "Folder Size Info"
End Sub

我看这里汲及到两个过程首先是监测:
1 用一个api函数就可以实现这个功能
ReadDirectoryChangesW
2然后当你监测到变化时,你再判断一下这个文件的大小是否超过200k,然后决定是否删除