Vraag & Antwoord

Programmeren

[VB6] programmatisch opzoeken van sharenaam

4 antwoorden
  • Is er een mogelijkheid om vanuit een programma de sharenaam van de eerste harde schijf te vinden? Wat ik heb gedaan is het volgende [code:1:bc54f96d62]Option Explicit Private Computer As FileSystemObject Private Schijven As Drives Private Schijf As Drive Private Sub Form_Load() Set Computer = New FileSystemObject Set Schijven = Computer.Drives For Each Schijf In Schijven Text1.Text = Text1.Text & Schijf.DriveLetter & " - " & Schijf.ShareName & vbCrLf Next Set Schijven = Nothing Set Computer = Nothing End Sub[/code:1:bc54f96d62] Maar dit werkt niet, ik krijg geen sharenaam, alleen wanneer ik een netwerkschijf aan een driveletter toeken krijg ik een sharenaam, maar ik wil de sharenaam hebben van de lokale schijven Oh ja, alle schijven op alle computers staan gedeeld en hebben dus een sharenaam.
  • [quote:8e5144b181="DarkScribe"]Is er een mogelijkheid om vanuit een programma de sharenaam van de eerste harde schijf te vinden? Wat ik heb gedaan is het volgende [code:1:8e5144b181]Option Explicit Private Computer As FileSystemObject Private Schijven As Drives Private Schijf As Drive Private Sub Form_Load() Set Computer = New FileSystemObject Set Schijven = Computer.Drives For Each Schijf In Schijven Text1.Text = Text1.Text & Schijf.DriveLetter & " - " & Schijf.ShareName & vbCrLf Next Set Schijven = Nothing Set Computer = Nothing End Sub[/code:1:8e5144b181] Maar dit werkt niet, ik krijg geen sharenaam, alleen wanneer ik een netwerkschijf aan een driveletter toeken krijg ik een sharenaam, maar ik wil de sharenaam hebben van de lokale schijven Oh ja, alle schijven op alle computers staan gedeeld en hebben dus een sharenaam.[/quote:8e5144b181] http://www.mvps.org/vbnet/index.html?code/network/uncfrommappeddrive.htm
  • Dit werkt helaas niet op lokale schijven, zowel onder windows XP als onder windows 98 blijven de tekstboxen leeg. De functies doen ook niet veel als de schijf geen netwerkschijf is en lokale schijven, hoe gedeeld ze ook zijn, blijken geen netwerkschijven te zijn volgens het programma
  • [quote:689d8a4c73="DarkScribe"]Dit werkt helaas niet op lokale schijven, zowel onder windows XP als onder windows 98 blijven de tekstboxen leeg. De functies doen ook niet veel als de schijf geen netwerkschijf is en lokale schijven, hoe gedeeld ze ook zijn, blijken geen netwerkschijven te zijn volgens het programma[/quote:689d8a4c73] duh! Ik heb waarschijnlijk de vraag verkeerd begrepen. Als ik het nu goed begrijp heb je een share aangemaakt voor een van je harde schijven. En deze sharenaam wil je op e.o.a. manier via code op kunnen vragen? [url=http://www.google.nl/search?q=WNetOpenEnum+RESOURCETYPE_DISK+visual+basic&ie=UTF-8&oe=UTF-8&hl=nl&btnG=Google+zoeken&lr=]Google[/url] [url=http://groups.google.nl/groups?hl=nl&ie=UTF-8&oe=UTF-8&q=WNetOpenEnum+RESOURCETYPE_DISK+visual+basic&lr=&sa=N&tab=wg]Google Groups[/url]

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.