arhagrarhargarhg

[lawnwakeiv]

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\test.txt")
MsgBox(fileReader)

HOPEFULLY THIS IS IT.

Comments

[m3g4m4n____]

i love you dude.

codemehbeh

[lawnwakeiv]

http://www.freevbcode.com/ShowCode.asp?ID=1331

Nowhere near finished but i love fishies

[lawnwakeiv]

http://builder.com.com/5100-6373-1050078.html

[anonymous]

'go through specified folder and add all filenames to the listbox
Dim oFileSystem As New FileSystemObject
Dim oFolder As Folder
Dim oCurrentFile As File
Dim oFileColl As Files

Set oFolder = oFileSystem.GetFolder(“C:\Files”)
Set oFileColl = oFolder.Files

If oFileColl.Count > 0 Then
With lstFiles
For Each oCurrentFile In oFileColl
.AddItem oCurrentFile.Name 'add item
Next
.ListIndex = 0
End With
End If

Set oFileSystem = Nothing
Set oFolder = Nothing
Set oFileColl = Nothing
Set oCurrentFile = Nothing

idk

[anonymous]

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"_
(ByVal lpstrCommand As String,
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long,
ByVal hwndCallback As Long) As Long

Public Sub SetCDState(pbState As Boolean)
If pbState Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
Else
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub