Kald fil fra hændeses knap

Det skulle gerne være noget alla dette : Call Shell(App.Path & "unixdrive.bat", vbNormalFocus)

Jeps - med Shell-kommandoen.

Hov, jeg er ikke sikker på du bare kan kalde bat-filen direkte. Det er meget muligt den skal kaldes med command og med parametre.

Alternativt burde du kunne køre en net use direkte fra app'en.

Det bedste ville helt klar være vis jeg kunne fyre net use'en af direkte i koden men hvordan ?

Også med shell. Men igen skal du nok bruge command med parametre, vil jeg tro.

måske : Dim X
    X = Shell ?

Nej, nærmere:

dim kommando as string

  kommando = "command net use \\..."
  shell command, vbnormalfocus

Det er indholdet af kommando jeg er mest usikker på.

Den den ikke kan finde filen (Command) ?

Shell "C:\Windows\system32\Cmd.exe /c net use L: \\navn\share kode /user:bruger /PERSISTENT:NO", vbNormalFocus ... sådan :D

Cool - tillykke med det. Jeg tænkte nok det ville kunne lade sig gøre.

Nu sker der bare det at den prøvet at skrive til destinationen før den har opretten net use'ed :( kan man gøre sådan den skal vente til cmd processen er kørt inden den går ned til næste kommando ? jeg kan ikke engang finde en form load jeg kan smide den i :( :S

Sorry - jeg ved ikke hvordan. Jeg tror der findes call back muligheder og da Shell er en function vil jeg tro at du får en process-id retur og det skulle kunne lade sig gøre at tjekke på om processen er kørt.

Alternativt kan du lavet noget beskidt busy wait hvor du spørger på om drevet findes.

hvordan laver jeg en busy wait ?

Du laver et loop der bare står og kigger på om L:-drevet findes og som først stopper når det gør.

Sørg for at fyre en doevents af i loopet, ellers tager den 100% af din cpu-tid.

Kan du ikke lige stille det op engang ... jeg kan ikke lige se mig ud af det :?

Dim fso as filesystemobject

  set fso = new filesystemobject

  do until fso.driveexists("L:")
    doevents
  loop

Det har selvfølgelig den svaghed at loopet aldrig stopper hvis der går noget galt, så det vil være klogt at sætte en timer på så den højst kører et vist tidsrum.

okai super ... hvordan skal jeg sætte det time out ? kan man ikke bare sætte den til at gøre det f.eks. 10 gange ?

den melder bare user type not difined ?

User type not defined skyldes formodentlig at du ikke har en reference til Microsoft Scripting Runtime - det skal du lige have krydset af i Tools | References.

For at måle tiden skal du laven variabel af typen date som du sætter = now når du starter loopet og så tjekker du for hvert gennemløb hvor lang tid der er gået. Antal gennemløb synes jeg det er uklogt at måle på...det vil være for tilfældigt hvor mange gennemløb man kan forvente der skal til.

nu siger den Object Variable or With block not set ? og jeg kan ikke lige se mig ud af hvorfor ...

fat lige ud af jeg havde skrevet forker ... my bad :(

Endnu engang tak du er løst alle mine problemer Super ... har givet dig god karma :D

Super - hvem kan ikke bruge lidt god karma ;)