De gedeelde naam van een station biedt netwerkgebruikers met de naam van waaruit ze toegang hebben tot bestanden , printers en netwerkbronnen . De gedeelde naam is niet altijd dezelfde naam als de lokale stationsnaam . U kunt de VBA- taal en de " File System Object " die bij de VBA- taal naar de gedeelde schijf naam in uw toepassingen te bepalen gebruiken . Instructies 1 Open het bestand dat uw VBA-code bevat . Als u de code gemaakt door de Microsoft Office VBA -interface , opent u het Office-bestand en klik op de " VBA " knop in het tabblad ' Developer ' of lint . Kopen van 2 Maak een FSO variabele object . De volgende code maakt het FSO object en wijst op de schijf die u wilt lezen : Set bestand = Nieuwe FileSystemObjectSet rijden = FSO.GetDrive ( " c : \\ " ) Vervang " c : . \\ " met de letter op de lokale computer 3 Verkrijg de gedeelde naam voor het station . De volgende code haalt de gedeelde naam en geeft de naam aan de gebruiker : sharedname = drive.ShareNameMsgBox " De gedeelde naam is" & sharedname < br > |