home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / ProjectX1_562922192002.psc / Modules / modStuffX3.bas < prev    next >
Encoding:
BASIC Source File  |  1997-02-19  |  2.6 KB  |  111 lines
  1. Attribute VB_Name = "modStuffX3"
  2. Option Explicit
  3. Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
  4.  
  5.  
  6.  
  7. Public Function FastDelete(IOFilePath As String) As Long
  8. '-----------------------------------
  9. '-    FastDelete(IOFilePath)
  10. '-   IOFilePath is the location of a file
  11. '-   that you want to delete.
  12. '-
  13. '-  It will delete that file real fast
  14. '-
  15. '-   By T-Virus Creations
  16. '- http://www.tvirusonline.be
  17. '- email: tvirus4ever@yahoo.co.uk
  18. '-
  19. '-----------------------------------
  20. On Error Resume Next
  21. Open IOFilePath For Output As #1 ' Open File
  22. 'Automatic Delete Of Content
  23. Close #1 ' Close File
  24. DeleteFile IOFilePath
  25. FastDelete = 0
  26.  
  27. End Function
  28.  
  29. Public Function GetFileSize(File As String) As Long
  30. '-----------------------------------
  31. '-    GetFileSize(File)
  32. '-   File is the location of a file.
  33. '-
  34. '-  It will return the size of the file
  35. '-      size can be a little wrong :(
  36. '-
  37. '-   By T-Virus Creations
  38. '- http://www.tvirusonline.be
  39. '- email: tvirus4ever@yahoo.co.uk
  40. '-
  41. '-----------------------------------
  42. Dim out As String
  43. Dim t As String
  44.  
  45. Open File For Input As #1 ' Open File
  46. While EOF(1) = False
  47. Input #1, t
  48. If out = "" Then
  49. out = t
  50. GoTo 10
  51. End If
  52. out = out + t
  53. 10
  54. Wend
  55. Close #1 ' Close File
  56. GetFileSize = Len(out) ' + 2
  57. End Function
  58.  
  59.  
  60. Public Sub SaveBogus(File As String, Blocks As Long, BlockSize As Long, UseDoEvents As Boolean)
  61. '-----------------------------------
  62. '-    SaveBogus(File , Blocks, BlockSize, UseDoEvents)
  63. '-   File is the location of a file.
  64. '-   Blocks= The amount of block
  65. '-   BlockSize= The size in bytes of one block
  66. '-   UseDoEvents= Use this when working with big files, else could freeze
  67. '-
  68. '-   Saves a string full with dots
  69. '-
  70. '-   By T-Virus Creations
  71. '- http://www.tvirusonline.be
  72. '- email: tvirus4ever@yahoo.co.uk
  73. '-
  74. '-----------------------------------
  75. Open File For Output As #1
  76. On Error GoTo 10
  77. Dim SStr As String
  78. Dim i As Long
  79. For i = 1 To Blocks ' - 2
  80. SStr = SStr + String$(BlockSize, ".") 'Chr(Rnd(10) * 100))
  81. If UseDoEvents = True Then
  82. DoEvents
  83. End If
  84. Next
  85. 10
  86. Print #1, SStr
  87. Close #1
  88. End Sub
  89.  
  90. Public Sub SafeDelete(File As String) ' Isn't that safe.. Yet!
  91. '-----------------------------------
  92. '-    SafeDelete(File)
  93. '-   File is the location of a file.
  94. '-
  95. '-  It will delete File fast and safe.
  96. '-
  97. '-   By T-Virus Creations
  98. '- http://www.tvirusonline.be
  99. '- email: tvirus4ever@yahoo.co.uk
  100. '-
  101. '-----------------------------------
  102. On Error Resume Next
  103. SaveBogus File, GetFileSize(File), 1, True
  104. Open File For Output As #1 ' Open File
  105. 'Automatic Delete Of Content
  106. Close #1 ' Close File
  107. DeleteFile File
  108.  
  109. End Sub
  110.  
  111.