Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

bladeren in je computer (Opgelost)

roberini - 26/08/2008 20:55 (laatste wijziging 26/08/2008 21:00)
HTML beginner		Ik heb dus een button en als ik daar op klik wil ik zo'n schermpje krijgen dat je kan zoeken naar een bestand (bijvoorbeeld ik zoek in Mijn Documenten het liedje "Jan Smit - Als De Morgen Is Gekomen") en dat dan het volledige adres in de textbox komt te staan www.tinypic.com , dat bedoel ik (In dit geval is dat dan "C: \Documents and Settings\Robin\Mijn documenten\Jan Smit - Als De Morgen Is Gekomen.mp3") Kan dat via Visual Basic en is er een tutorial voor? Ik heb op google gezocht maar ik kan niks vinden. Als ik "Browse" of "Bladeren" intyp vind hij alleen "Browser" en "Bladeren van een plant bijvoorbeeld." Weten jullie een tutorial hiervoor?

14 antwoorden

Gesponsorde links

Abbas - 26/08/2008 22:09 (laatste wijziging 26/08/2008 22:21)

Crew .NET

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'fileName = het bestand waar naar moet gezocht worden
Dim fileName As String = zoekInput.Text
'string-array aanmaken
Dim results As String()
'array vullen met alle bestanden van de geselecteerde map
results = Directory.GetFiles(dirString)
'door de array loopen
For Each resString As String In results
    'zoeken in de array naar het bestand
    If resString.IndexOf(fileName) >= 0 Then
        'als het gevonden is, de volledige bestandsnaam in het tekstvak zetten
        resultBox.Text = dirString & "\" & resString
    End If
Next
            
'fileName = het bestand waar naar moet gezocht worden
Dim fileName As String = zoekInput.Text
'string-array aanmaken
Dim results As String()
'array vullen met alle bestanden van de geselecteerde map
results = Directory.GetFiles(dirString)
'door de array loopen
For Each resString As String In results
    'zoeken in de array naar het bestand
    If resString.IndexOf(fileName) >= 0 Then
        'als het gevonden is, de volledige bestandsnaam in het tekstvak zetten
        resultBox.Text = dirString & "\" & resString
    End If
Next
 

Ik post zo meteen nog het hele project online zodat je het kan downloaden en bekijken.

Edit:
Hier is de link naar het project. Hopelijk ben je er iets mee!

roberini - 26/08/2008 23:05
HTML beginner		die code moet ik voor de button doen zeg maar?

Abbas - 27/08/2008 00:06
Crew .NET		Als je nu eens even het projectje download! Hierin staat ook de Form met de bijbehorende code en commentaar tussen de code! Zo zal je het wel beter begrijpen!

roberini - 27/08/2008 10:59
HTML beginner		ik heb het gedownload, maar ik zie niet het design van het formpje alleen de code enz

Abbas - 27/08/2008 12:22 (laatste wijziging 27/08/2008 12:26)
Crew .NET		Met welk programma open je de Solution-file? Met Visual Studio 2005/2008 of met een Express Edittion van VB.NET 2005/2008. Ik heb zelf de ZIP eens gedownload en ge-unzipped, daarna in de map gekeken en de Solution-file geopend en alles wat er moet zijn is er!

roberini - 27/08/2008 12:49
HTML beginner		ik open het met Microsoft Visual Basic 2008 Express Edition

Abbas - 27/08/2008 12:57 (laatste wijziging 27/08/2008 13:13)

Crew .NET

Dan zou het perfect moeten werken! Open je Visual Basic en dan kies je voor Open Project en dan kies je de Solution-file die in de folder zit. Ik heb het zelf getest en het werkt allemaal!

Swat, doet er niet toe!

Het is de code die telt. Zorg dat je twee Globals hebt, gewoon binnen je Class declareren:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'het pad waarin moet gezocht worden
Dim dirString As String
'flag dient om te kijken of er wel een folder geselecteerd is
Dim flag As Boolean 

            
'het pad waarin moet gezocht worden
Dim dirString As String
'flag dient om te kijken of er wel een folder geselecteerd is
Dim flag As Boolean
 

Het komt er dan op neer dat je dan een Button hebt die een FileBrowserDialog tevoorschijn haalt en hierin kies je je folder. De code voor het event van deze knop is:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                'file-browse venster tonen
Dim dlg_res As DialogResult = dirBrowser.ShowDialog()
'als er op OK werd geklikt
If dlg_res = DialogResult.OK Then
    'map geselecteerd en dirString als waarde de geselcteerde map geven
    flag = True
    dirString = dirBrowser.SelectedPath
End If

            
'file-browse venster tonen
Dim dlg_res As DialogResult = dirBrowser.ShowDialog()
'als er op OK werd geklikt
If dlg_res = DialogResult.OK Then
    'map geselecteerd en dirString als waarde de geselcteerde map geven
    flag = True
    dirString = dirBrowser.SelectedPath
End If
 

Je hebt dan nog je TextBox voor je zoekstring en een Button om te beginnen zoeken. De code voor het event van deze zoekknop:

vbnet code - Bekijk de code zonder highlighting - Klap code in

                If flag = True Then

    'het bestand naar waar je gaat zoeken
    Dim fileName As String = zoekInput.Text
    'string-array aanmaken
    Dim results As String()
    'en vullen met de bestanden die in de geselecteerde map zitten
    results = Directory.GetFiles(dirString)
    'door de array loopen
    For Each resString As String In results
        'en zoeken naar het bestand
        If resString.IndexOf(fileName) >= 0 Then
            'als het bestaat, het VOLLEDIGE PAD + EXTENTIE in textbox zetten
            resultBox.Text = dirString & "\" & resString
        End If
    Next
End If

            
If flag = True Then
 
    'het bestand naar waar je gaat zoeken
    Dim fileName As String = zoekInput.Text
    'string-array aanmaken
    Dim results As String()
    'en vullen met de bestanden die in de geselecteerde map zitten
    results = Directory.GetFiles(dirString)
    'door de array loopen
    For Each resString As String In results
        'en zoeken naar het bestand
        If resString.IndexOf(fileName) >= 0 Then
            'als het bestaat, het VOLLEDIGE PAD + EXTENTIE in textbox zetten
            resultBox.Text = dirString & "\" & resString
        End If
    Next
End If
 

Voila, ik denk dat het nu wel duidelijk is!

roberini - 27/08/2008 13:30
HTML beginner		ik zie alleen maar code code code, geen design:O dus ik zie de form zelf niet, maar alleen de code

Abbas - 27/08/2008 14:50
Crew .NET		Dat doet er toch niet toe. Ik heb je uitgelegd wat er op de Form moet staan en de code die erachter zit staat hierboven afgebeeld! Dus het maakt niet uit dat je de code niet kan zien uit mijn project. Maak in je eigen project de juiste Controls aan en voeg daar dan de code bij die ik je heb gegeven!!

JBke - 27/08/2008 15:55
PHP gevorderde		bij mij werkt het alvast perfect. Lol titjes misschien dezelfde versie Visual Studio ??? Hahaha Grtz.

Abbas - 27/08/2008 16:13
Crew .NET		Natuurlijk dat het werkt!, die code klopt voor 100%! Ja ik denk dat jij ook VS2008 gebruikt, niet?! :D

roberini - 27/08/2008 17:18 (laatste wijziging 27/08/2008 17:18)
HTML beginner		als ik die code doe dan zegt ie dat die de naam dirSting niet kan vinden:S raar

Abbas - 27/08/2008 20:13
Crew .NET		Je moet van die twee variabelen (dirString en flag) Globals maken! Dot heb ik al gezegd. Je declareert ze buiten elk event binnen de Class van je Form!

roberini - 11/10/2008 19:46
HTML beginner		ik heb het eigenlijk al lang gevonden, geen idee waarom ik hem niet heb opgelosd:P

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten