[Tigger93]

I've looked around at this for a solution to this problem for a while, but to no success. What I have is a program that needs to delete a file under the %userprofile%, but knowing VB6, I know that this probably won't work. I was wondering how you could delete that file under the %userprofile%? Thanks for any help.

Edited by Tigger93, 16 June 2006 - 09:41 AM.

[Advertisements]

Hey there Tigger93, I wrote up this little code for you that you can use.

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Kill "C:\Documents and Settings\" + Text1.Text + "\My Documents\testfile.txt"
End Sub

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
	
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
Text1.Text = Left$(sBuffer, lSize)
Else
Text1.Text = vbNullString
End If

End Sub

Ok, all you have to do is add a text box and a command button. Make a text file in your documents called "testfile".

It will then delete the file in your documents called "testfile.txt".

Cool

[Spike]

Hey there Tigger93, I wrote up this little code for you that you can use.

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Kill "C:\Documents and Settings\" + Text1.Text + "\My Documents\testfile.txt"
End Sub

Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long
	
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
Text1.Text = Left$(sBuffer, lSize)
Else
Text1.Text = vbNullString
End If

End Sub

Ok, all you have to do is add a text box and a command button. Make a text file in your documents called "testfile".

It will then delete the file in your documents called "testfile.txt".

Cool

[Tigger93]

Thanks, but it says "Declare" is not a valid identifier. It also says Text1.Text is not delcared.

Edited by Tigger93, 16 June 2006 - 01:47 PM.

[Spike]

Are you running VB6?

The top code must go into the declerations, this is above all the other coding right on top.

Also try and add the "Option Explicit" on the first line of code: EG

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long

[Rest Of Code...]

Let me know if it is still giving problems. Cool

Edit: And make sure you add a text box

Edited by spike_hacker_inc, 16 June 2006 - 01:48 PM.

[Tigger93]

Eh... My bad, here. I'm running VB 2005...

[Spike]

Sorry Tigger93, I am not to suped up on VB2005. So I cant help any more than I have. I will look around for you though and try and pick up something.

Sorry, Cool

[Tigger93]

Thanks.