letter van USB-stick in VB6

[blommendaal]

Heb altijd floppy's gebruikt om gegevens naar andermans computers over te brengen. Veel nieuwe computers hebben geen floppy-drive. Ik probeer nu Memory-sticks te gebruiken, maar die hebben vaak op andere comp[uters een andere letter-code. Visual Basic 6 weigert variabelen als code. Wat nu

 

[CoD_NL]

Je bedoelt dat je de applicatie van een usb stick runt en dat je wilt weten op welk station je draait ?

Dim station As String
station = Left(App.Path, 3) 'app.path is iets in de vorm van 'c:\een_map\', we pakken daar de eerste drie tekens van. (c:\)

 

[blommendaal]

Station opgave

Dat is niet wat ik bedoel. Ik wil een InputBox in het programma opnemen waarin de gebruiker kan aangeven waar de memorystick zich op zijn computer bevindt. Vervolgens moeten dan de data van de stick naar een File worden gekopieerd,bv FileCopy "C:\Program Files\RekeningCourant\DataFileRC.Dat", _
"H:\DataFileRC.Dat". Maar H kan geen variabele zijn blijkt!

 

[CoD_NL]

Waarom zou het stationsletter geen variable kunnen zijn ? Onderstaande werkt hier gewoon.

Dim station As String
station = "d"
If Dir(station & ":\aap.txt") <> "" Then
  MsgBox "Het bestand bestaat!"
Else
  MsgBox "Het bestand bestaat niet!"
End If

 

[blommendaal]

Public Sub Main()
Dim USB, K, C As String
USB = (InputBox("MemorystickStation", "USB"))
'ik voer in H, waar de Memorystick zich bevindt
K = USB

FileCopy "C:\Program Files\RekeningCourant\DataFileRC.Dat", _
"K:\DataFileRC.Dat"
Debug.Print "Overdracht gebeurd"
End Sub
En dit werkt niet!

 

[Jan van Asseldonk]

vervang
FileCopy "C:\Program Files\RekeningCourant\DataFileRC.Dat", _
"K:\DataFileRC.Dat"
door
FileCopy "C:\Program Files\RekeningCourant\DataFileRC.Dat", _
& USB & ":\DataFileRC.Dat"

K = USB kun je verwijderen,.