Avatar billede mrdj Nybegynder
17. april 2006 - 18:33 Der er 3 kommentarer og
1 løsning

Sprint over hvis mappe findes i forvejen

Jeg har siddet og lavet noget VBA kode som automatisk scripter en genvej op skrivebordet samt ind i menuen start. Det er lavet således så jeg via "CreateFolder" laver en mappen i menuen start som den ligger genvejen ind i. Dog har jeg så fundet ud af nu, at koden fejler når brugeren logger ind igen og mappen ER oprettet.

Hvordan får jeg den til at springe mappeoprettelsen over hvis mappen eksisterer i forvejen ?

Her er lidt af koden (har skrevet ud for linien den fejler ved)

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Folder = WScript.CreateObject("Scripting.FileSystemObject")
strDesktop = WshShell.SpecialFolders("Desktop")
strMenu = WshShell.SpecialFolders("StartMenu")
folder.CreateFolder(strMenu & "\Programs\Advoforum Advo+") <------ HER ER DET DEN FEJLER HVIS MAPPEN ER OPRETTET !!!
Set oShellLinkDesktop = WshShell.CreateShortcut(strDesktop & "\Advo+.lnk")
Set oShellLinkStartMenu = WshShell.CreateShortcut(strMenu & "\Programs\Advoforum Advo+\Advo+.lnk")
Avatar billede thesurfer Nybegynder
17. april 2006 - 18:56 #1
Hvad med?:

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

If Not fso.FolderExists(strMenu & "\Programs\Advoforum Advo+") Then folder.CreateFolder(strMenu & "\Programs\Advoforum Advo+")

set fso = nothing

/theSurfer
Avatar billede thesurfer Nybegynder
17. april 2006 - 18:57 #2
Man kunne vel også bruge:

set fso = WScript.CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(strMenu & "\Programs\Advoforum Advo+") = false Then folder.CreateFolder(strMenu & "\Programs\Advoforum Advo+")

set fso = nothing

Har fjernet "Not" og bruger "= false"..

/theSurfer
Avatar billede thesurfer Nybegynder
17. april 2006 - 18:58 #3
Svar.

/theSurfer
Avatar billede mrdj Nybegynder
18. april 2006 - 10:08 #4
TheSurfer: Det virker bare, tak for hjælpen
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester