Public Function GetFileContents(ByVal FullPath As String, _
Optional ByRef ErrInfo As String = “”) As String

Dim strContents As String
Dim objReader As StreamReader
Try

objReader = New StreamReader(FullPath)
strContents = objReader.ReadToEnd()
objReader.Close()
Return strContents
Catch Ex As Exception
ErrInfo = Ex.Message
End Try
End Function

Public Function SaveTextToFile(ByVal strData As String, _

ByVal FullPath As String, _

Optional ByVal ErrInfo As String = “”) As Boolean

Dim Contents As String

Dim bAns As Boolean = False

Dim objReader As StreamWriter

Try

objReader = New StreamWriter(FullPath)

objReader.Write(strData)

objReader.Close()

bAns = True

Catch Ex As Exception

ErrInfo = Ex.Message

End Try

Return bAns

End Function

files = System.IO.Directory.GetDirectories(FolderBrowserDialog1.SelectedPath)

For Each fname As String In files

MsgBox(fname)

Next

Iaf så lades sidan ner, webmastern berättade något i stil med att det kändes bäst att lägga ner sidan när den gick som bäst istället för att man skulle se den dö.

Jag har många gånger tänkt på vad korkat det beslutet egentligen var. Jag tvivlar inte en sekund på att han skulle kunna levt på sidan än idag.

Om man har en sidan med mer än 1000 besökare per dag så ska det inte vara några större problem att tjäna 5000-10000 kr per månad. Det beror iofs på vilken kategori sidan har men en sida som MegaDomain.net hade det inte varit några problem för.

Så, beslutet var med andra ord skitkorkat!

DealExtreme har gratis frakt och extremt billiga priser på all elektronik och andra saker och det gör sidan väldigt intressant!

Jag har precis beställt en mobil från sidan, jag ska göra en liten “review” när jag får den.

if(strpos($string, $find ){
echo ‘yes, its found’
}else{
echo ‘not found’;
}

$keyword = “Hej jag är en björn”;

$keywordarray = split(” “, $keyword);

foreach ($keywordarray as $value) {
echo “$value “;
}

/usr/share/icons