how to find a file??
how to find a file??
Hey
I want to know what the code would be to find a file.
Like say:
If C:\Nexon\Combat Arms\EndingBanner.exe found then
label1.text = Ending Banner Found
else
label1.text = Ending Banner Not Found
Anyone know?
ALSO,
How would i write the a file to a folder. then when you press a button. it removes it.
Thanks
acid_buRn
I want to know what the code would be to find a file.
Like say:
If C:\Nexon\Combat Arms\EndingBanner.exe found then
label1.text = Ending Banner Found
else
label1.text = Ending Banner Not Found
Anyone know?
ALSO,
How would i write the a file to a folder. then when you press a button. it removes it.
Thanks
acid_buRn
Ok I posted this somewhere else but here we go
Import this first :
Now put this where you want:
Import this first :
Code:
imports System.IO.File
Code:
If System.IO.File.Exists("C:\Nexon\CombatArms\Endingbanner.exe") = True Then
MsgBox("File Found") ' or what ever
End If
Originally Posted by SPittn_Blood
Ok I posted this somewhere else but here we go
Import this first :
Now put this where you want:
Import this first :
Code:
imports System.IO.File
Code:
If System.IO.File.Exists("C:\Nexon\CombatArms\Endingbanner.exe") = True Then
MsgBox("File Found") ' or what ever
End If
Do you know how to write a file to a folder?
What does it say in massive green letters in my signature?
Yes I can, but I will post tomorow
Yes I can, but I will post tomorow
Originally Posted by ac1d_buRn
Thanks for that.
Do you know how to write a file to a folder?
Do you know how to write a file to a folder?
Originally Posted by ac1d_buRn
Thanks for that.
Do you know how to write a file to a folder?
Do you know how to write a file to a folder?
Then add this code:
Code:
Imports System.IO
Code:
Try
Dim myFile() As Byte = My.Resources.FILENAME
Dim fileData = New FileStream(C:\...... + "\FILENAME.txt", FileMode.OpenOrCreate)
Dim BW As New BinaryWriter(fileData)
Try
For bt As Integer = 0 To myFile.Length - 1
BW.Write(myFile(bt))
Next
Catch ex As Exception
MsgBox(ex.Message.ToString)
Finally
fileData.Close()
BW.Close()
End Try
MsgBox("File moved")
Catch ex As Exception
MsgBox("Failed")
End Try
Originally Posted by hejsan1
Add the file to my resorces!
Then add this code:
And
Atleast give me a thanks for this!
Then add this code:
Code:
Imports System.IO
Code:
Try
Dim myFile() As Byte = My.Resources.FILENAME
Dim fileData = New FileStream(C:\...... + "\FILENAME.txt", FileMode.OpenOrCreate)
Dim BW As New BinaryWriter(fileData)
Try
For bt As Integer = 0 To myFile.Length - 1
BW.Write(myFile(bt))
Next
Catch ex As Exception
MsgBox(ex.Message.ToString)
Finally
fileData.Close()
BW.Close()
End Try
MsgBox("File moved")
Catch ex As Exception
MsgBox("Failed")
End Try
Originally Posted by ac1d_buRn
Thank youuu
Uh where us My Resources?
I cant find it XD
I put it on the solution explorer but it didnt work
I cant find it XD
I put it on the solution explorer but it didnt work
click on view. Click solution explorer. right click on resources click add
Originally Posted by stevethehacker
click on view. Click solution explorer. right click on resources click add
Or Options->Resoucres->Put the file in the felt! (I t hink it was that or you can do like steve!
I have always done it my way. I didn't even know about the other way lmao
this is all you need, very very simple
Code:
Dim fso
Dim fol As String
fol = "C:\Nexon\Combat Arms\"
fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(fol + "EndingBanner.exe") Then
label1.text = Ending Banner Not Found
Else
label1.text = Ending Banner Found
End If
Similar Threads
- 1Last post
- 1Last post
- 22Last post
- 21Last post
- 5Last post