Søg
Avatar billede tingholm Mester
28. april 2006 - 11:18 Der er 4 kommentarer og
1 løsning

kontrol om netværksdrev findes

har følgende kode som tilslutter et netværksdrev "T:" til share "mappe$" på serveren "server"

vil gerne lave så den kontrollerer om drevet t allerede findes!
Det er ikke strengt nødvendigt at se om "T:" peger på det rigtige, men hvis det ikke er alt for besværligt vil det jo nok være det rigtigste...

if ?? then
  Dim WshShell
  Dim net
  Set WshShell = CreateObject("Wscript.Shell")
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set net = CreateObject("WScript.Network")
  net.MapNetworkDrive "T:", "\\server\mappe$","False"
end if
Avatar billede thesurfer Nybegynder
28. april 2006 - 11:56 #1
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.DriveExists("T") Then 
    msgbox "drev T findes"
else
    msgbox "drev T findes IKKE"
End If

Kilde: http://www.devguru.com/technologies/vbscript/QuickRef/filesystemobject_driveexists.html

/theSurfer
Avatar billede thesurfer Nybegynder
28. april 2006 - 11:58 #2
Jeg ved ikke hvad "peger på det rigtige" betyder, så jeg har ikke lavet det..

/theSurfer
Avatar billede ejvindh Ekspert
28. april 2006 - 12:24 #3
Hvis du vil checke at det er det rigtige drev, der står som T-drevet, kunne du evt. lægge en fil på drevet, som entydigt identificerer drevet. Du kunne fx lave en lille tekstfil ude i roden af drevet, der hedder "xlowopw8901j.txt" -- og så tilrette thesurfer's forslag således:

dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("T:\xlowopw8901j.txt") Then
    msgbox "drev T findes"
else
    msgbox "drev T findes IKKE"
End If
Avatar billede thesurfer Nybegynder
28. april 2006 - 13:00 #4
ejvindh> Det tænkte jeg også på at lave, men ville lige høre ad først.. det kunne jo være, at han ikke havde skriverettigheder til netværksdrevet, eller ikke kendte det drev der var der i forvejen..

Alternativt kan man vælge et andet drevbogstav, hvis T: er taget..

/theSurfer
Avatar billede ejvindh Ekspert
28. april 2006 - 13:17 #5
Ja, det må jo vise sig om vi har ramt hovedet på sømmet :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
23/1221:36 Gøre Ikonerne lidt større i proceslinjen (Windows 10) Af Ikke-ekspert i Windows
23/1218:05 Glemt kodeord til BitLocker Af valby i Windows
23/1214:37 Blå og rød lysdioder Af ErikHg i Andet hardware
22/1221:22 Fejl på outlook(new) Af fase i E-mail programmer
20/1220:05 #OVERLØB! Af ABE15 i Excel
White papers
Flere white papers »