| Forfatter |
 Emne Søg  Emne funktioner
|
Bjarne 
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
 Emne: Opgave at finde USB-Nøgle
Sendt: 18.Maj.2016 kl. 13:12 |
Håb om hjælp til at finde USB nøgle (drev). 
'.............................................................................................................
'Her skal stien (Drev) findes til USB nøglen.
'.............................................................................................................
On Error Resume Next
For Counter =
Asc("E") To Asc("Z")
If Dir(Chr(Counter) & ":\Finans Drev.TXT")
<> "" Then Sti = Chr(Counter) & ":\"
Next
If Sti = "" Then
MsgBox "ingen USB-Nøgle i
USB-drev ", vbInformation, "Indsæt USB-Nøglen NU! Kan ikke komme
videre før!": BJ_Gem 'USB-nøgle skal sættes i!
Else
MsgBox "Finans drev er
" & Sti
End If
'......................Denne virker såmænd udmærket men.....................
Når man skal indsætte en tom TXT fil I det USB stik der skal anvendes,
skaber det problemer for alm.- brugere.
Hvis der nu kunne søges efter en navngivet USB –nøgle i stedet, ville
det lette mange.
Jeg har formateret en USB – nøgle med navnet ”Finaciel” men kan ikke
finde ud af at ændre;
If Dir(Chr(Counter)
& ":\Finans
Drev.TXT") <> "" Then Sti = Chr(Counter) &":\" Eksempel: Sti bliver til Finaciel G:\ Hjælp ‘please’ 
|
|
//Bjarne
|
 |
|
|
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 18.Maj.2016 kl. 15:43 |
Sub FindUSB()
' * ' Initialize
On Error Resume Next
' * ' Define variables
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Sti As String
Dim DiskDrive As Object
' * ' Find drive letter
For Each DiskDrive In FSO.Drives
If DiskDrive.VolumeName = "Finaciel" Then Sti = DiskDrive.DriveLetter & ":\"
Next
' * ' Message to user
If Sti = "" Then
MsgBox "ingen USB-Nøgle i USB-drev ", vbInformation, "Indsæt USB-Nøglen NU! Kan ikke komme videre før!"
Else
MsgBox "Finans drev er " & Sti
End If
ES: ' End of Sub
Set FSO = Nothing
Set DiskDrive = Nothing
End Sub |
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 19.Maj.2016 kl. 07:50 |
Takker for endnu din hjælp igen! :-) Går straks i gang med at sætte det ind i programmet. Du høre nærmere om resultatet. Mvh
|
|
//Bjarne
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 19.Maj.2016 kl. 08:38 |
Hej EXCELGAARD,  Desværre gik det ikke. Får følgende fejl;  Compiler error Duplicate declaration in current scope. Dim Sti As String Hvis jeg fjerner 'Dim Sti As String' kører det videre uden fejl, men til gengæld kan er stien permanet "D" selvom nøglen er i Drev "G". Har også prøvet at undgå det som en sub rutine, da stien skal bruges igen efterfølgende. Er der håb forude?  Mvh
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 19.Maj.2016 kl. 08:45 |
|
Underligt - koden der virker hos mig...
Det lyder som om, du blander min kode sammen med noget andet kode?
Skal jeg finde fejlen, må du uploade dit regneark, så jeg kan se, hvad du har gjort...
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 19.Maj.2016 kl. 08:53 |
Prøv, at udskifte loopet med dette:
' * ' Find drive letter
For Each DiskDrive In FSO.Drives
Sti = DiskDrive.VolumeName
If Sti = "Finaciel" Then
Sti = DiskDrive.DriveLetter & ":\"
Exit For
End If
Next |
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 19.Maj.2016 kl. 10:46 |
Hej, Den finder godt nok som Sti = "Finaciel" men ikke om drevet er G,H eller Z. Når jeg så acceptere at den skal gemme - kører programmet færdigt uden at oprette noget som helst. Uploader filen: For gå direkte til opgaven; - -gå ind under arket Kskl
- - derefter 'Vis programkode '
- - Modul 6
- - Sub BJ_Gem()
Måske griber jeg det helt forkert an? Burde måske "bare" lade en macro: - finde første ledige flytbar drev
- lade systemet vente til en USB-Nøgle bliver sat i den ledige USB-Port.
- Derefter gemme filen på den USB enhed
- Køre programmet færdigt
På den måde vil det være ligegyldigt med hvilken USB-Nøgle der bliver sat i USB-porten. Hvad syntes du? vil det være muligt at lave en sådan? - virker det ikke mere logisk? Mvh
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 19.Maj.2016 kl. 11:03 |
|
Har du prøvet, at sætte det nye loop ind?
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 19.Maj.2016 kl. 11:14 |
HOV !!!! Jeg har lige kigget i din kode - du har jo ændret min kode - derfor virker det ikke!!! I din kode skriver du:
If Sti = "Finaciel" & ":\" Then |
...men, det er jo ikke det, jeg har skrevet i min kode! Hvis du ændrer de koder, som du får, så er det klart, at det ikke virker!
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 19.Maj.2016 kl. 11:21 |
He, Bare rolig jeg ændrede ikke noget før til sidst. Det var bare det sidste forsøg før jeg gav op. glemte at slette det igen. Der må være noget andet i min system som konflikter. Må sørme sige at er vågen. 
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 19.Maj.2016 kl. 11:33 |
Hmmm....Underligt... Jeg har osse et G:\ drev på min computer, og når jeg omdøber det til 'Finaciel', og kører makroen i dit regneark (efter, at have rettet koden tilbage igen), så virker det upåklageligt Og, du er HELT sikker på, at drevet hedder 'Finaciel'? Husk, at VBA skelner mellem små og store bogstaver. Drevet hedder ikke 'Financiel'? (Bemærk, det ekstra 'n') Det skal altså virke...
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 19.Maj.2016 kl. 15:43 |
Jeg nu også ført det tilbage. Jeg har det tilbage til dit oprendelige - den finder 'Finaciel' men ikke G:\. programmet kører videre men gemmer intet på G:\ men derimod på det oprindelig drev. Hvis du ser på resultatet: MsgBox "Finans drev er " & Sti her står der kun Finaciel og ikke Finaciel G:\ Har du kontrolleret at du har fået gemt programmet på dit G-drev? Jeg lige prøvet at ændre 'Finaciel' til 'FINANS' samt ændre USB-Nøglens navn også til 'FINANS' Samme resultat - er nu ganske forvirret!  PS Ked af at det varede så længe før jeg vendte tilbage - skyldes teknisk fej -fik ingen varsko.
|
|
//Bjarne
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 21.Maj.2016 kl. 10:08 |
Til EXCELGAARD, Skylder måske lige at fortælle, at jeg har opdelt mit drev til; - - C:\ -delt i 3 enheder
- - E:\(Program del)
- - F:\ (Backup)
D:\ =(CD-drev) og G:\ kan derved være det første ledige USB drev, hvis det ikke er brugt i forvejen. Hjælper dette noget? Fik du MsgBox "Finans drev er " & Sti til at se sådan ud: Finans drev er G:\ Ser frem til din kommentar. Mvh.
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 23.Maj.2016 kl. 07:39 |
Hej igen, Du skal skam ikke undskylde, at du er længe om at svare - jeg har osse lige holdt lang weekend, så nu er det vist mig, der skal undskylde Ja, jeg får en MsgBox, der skriver præcist: "Finans drev er G:\" Så, hos mig virker det, og jeg har ualmindeligt svært ved at gennemskue, hvorfor det ikke virker hos dig?!? Jeg har lige hentet dit regneark igen, og der stod stadig...
If Sti = "Finaciel" & ":\" Then |
...i koden - er du HELT sikker på, at du har rettet dette i din kode? Hvis du har rettet dette, er du så helt sikker på disk navnet? Der gemmer sig ikke nogle 'usynlige' mellemrum foran eller bagved navnet?
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 23.Maj.2016 kl. 11:28 |
Rart at høre fra dig igen. Du skrev tidligere; HOV !!!!
Jeg har lige kigget i din kode - du har jo ændret min kode - derfor virker det ikke!!!
I din kode skriver du: ''If Sti = "Finaciel" & ":\" Then '' ...men, det er jo ikke det, jeg har skrevet i min kode!
Hvis du ændrer de koder, som du får, så er det klart, at det ikke virker! Naturligvis står der det det samme da jeg ikke kan gå ind og ændre i den du har downloadet. Har gennemgået alle de steder hvor ordet Finaciel indgår. Kan kun se, at det er det du selv skriver som din kode. Kan du skrive din kode igen som du henviser til?  Er det bedre, at vi begge ændre det til: FINANS i programmet og på USB-Nøglen? På den måde sikre vi begge, at der står nøjagtigt det samme hos os begge? Finder lige en ny USB - nøgle og formaterer den med Diskenhedsnavn: FINANS og prøver igen.
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 23.Maj.2016 kl. 11:39 |
|
Nåh, jeg forstod det blot sådan, at du havde ændret det og uploadet en ny fil.
Jeg har lige prøvet med 'FINANS' (kun store bogstaver), og det virker stadig uden problemer hos mig.
Makroen finder stien 'G:\'.
Når du har ændret hele koden til, så alt er, som du mener det skal være, kan du så ikke prøve, at gen-uploade, så jeg kan prøve din endelige kode på mit system...
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 23.Maj.2016 kl. 13:44 |
Jeg har nu sat det ind i en ny fil som jeg uploader: Har forsøgt at Formatere et par USB - Nøgler med navnet FINANS. Det gik da meget godt - men det pussige er at begge nøgler blev ti fast: Finans (H:) Uanset hvilken USB - port de bliver sat i? Hvordan det er sket ved jeg ikke  Fandt en gl. nøgle, slettede indhold og omdøbte den til FINANS. Når den nøgle bliver sat i bliver porten til (G:) og hvis der i forvejen sidder en nøgle i port (G:) ændres nøglen auto. til FINANS (H:) Der sker godt nok nogle pussige ting på min computer (jeg er ikke klar over om det er fejl 40, men lige pludselig er min papirkurv ændret til at være bibliotek???????
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 23.Maj.2016 kl. 15:01 |
|
Ja, jeg er forvirret på et højere plan?!?
Jeg har lige hentet dit nye ark, og kørt det uden så meget som, hverken at ændre et bogstav i koden, eller endda blot åbne VBE, og det virkede med det samme...
...jeg prøvede endda at omdøbe mit C:\ drev til 'FINANS' bare for at se, om det skulle være drev typen, der driller, men drevet blev fundet straks!
Jeg tror ikke, at det er en fejl-40, for din kode virker jo!
Det må være et eller andet, enten på dit system, eller noget som vi bare fuldstændigt overser!?!
Det er godt nok svært for mig, at hjælpe dig, når jeg ikke engang kan fremprovokerer den samme fejl hos mig???
Er det fordi vi taler forbi hinanden, og forventer et forskelligt resultat?
Jeg får en MessageBox op, der fortæller mig drev bogstavet på 'FINANS' drevet - er det ikke det vi går efter?
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Bjarne
Sølv bruger
Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
|
Sendt: 23.Maj.2016 kl. 16:43 |
+ +  +  Spørg mig ikke hvordan eller hvorfor....DET VIRKER NU!!!! Den både opretter og gemmer på C-Drevet og på G-Drevet Mangler nu kun at afprøve når G-drevet er optage, at den automatisk skifter til næste drev. Men tusinde tak for din tålmodighed og al din hjælp! Næste trin er at finde ud af hvorfor det virker nu. Kan ikke lade være - har det som børn. Med venlig hilsen
|
|
//Bjarne
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 24.Maj.2016 kl. 08:18 |
Det var godt Jeg var osse ved at være forvirret på et højere plan - har kørt din nye fil på 4 forskellige computere, med Win7, Win8 og endda WinServer, men XL2010 og XL2013, og både 32-bit og 64-bit. Uanset, hvad jeg gjorde, så virkede det! Men, nu har du da et gennemtestet system - der virker 
|
|
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
|
|
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Opgave at finde USB-Nøgle