---

Kan man (evt. med FileSystemObject) se, hvilket drev et program
afvikles fra?- Forstået på den måde, at mit eget designede program
skal kunne 'se' fra hvilket drev, det afvikles!

/Henrik

---

I news:r8q3b19fa0ks0brm0n8rmqrpsdmsf66vhb@4ax.com,
skrev Henrik Juul <h1e2n3r4i5k@1janning-2juul.dk (fjern tallene)>:
> Kan man (evt. med FileSystemObject) se, hvilket drev et program
> afvikles fra?- Forstået på den måde, at mit eget designede program
> skal kunne 'se' fra hvilket drev, det afvikles!

Kig på App.Path, som vel i første omgang svarer på dit spørgsmål.
....og så kan du jo evt. bagefter kombinere med FileSystemObject, hvis du vil
vide mere om drevet.... f.eks.

Private Sub Form_Load()
Dim fso As FileSystemObject
Dim dr As Drive
Set fso = New FileSystemObject
Set dr = fso.GetDrive(fso.GetDriveName(App.Path))

Text1 = App.Path
Text1 = Text1 & vbCrLf & dr.DriveLetter
Text1 = Text1 & vbCrLf & dr.DriveType
Text1 = Text1 & vbCrLf & dr.FileSystem
Text1 = Text1 & vbCrLf & dr.Path
Text1 = Text1 & vbCrLf & dr.ShareName
Text1 = Text1 & vbCrLf & dr.VolumeName
' osv...
End Sub


--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp

---

"Jens Vestergaard" <j@railsoft.dk> wrote in message
news:42b1f901$0$175$edfadb0f@dtext02.news.tele.dk...
> I news:r8q3b19fa0ks0brm0n8rmqrpsdmsf66vhb@4ax.com,
> skrev Henrik Juul <h1e2n3r4i5k@1janning-2juul.dk (fjern tallene)>:
> > Kan man (evt. med FileSystemObject) se, hvilket drev et program
> > afvikles fra?- Forstået på den måde, at mit eget designede program
> > skal kunne 'se' fra hvilket drev, det afvikles!
>
> Kig på App.Path, som vel i første omgang svarer på dit spørgsmål.
> ...og så kan du jo evt. bagefter kombinere med FileSystemObject, hvis du
vil
> vide mere om drevet.... f.eks.
>
> Private Sub Form_Load()
> Dim fso As FileSystemObject
> Dim dr As Drive
> Set fso = New FileSystemObject
> Set dr = fso.GetDrive(fso.GetDriveName(App.Path))
>
> Text1 = App.Path
> Text1 = Text1 & vbCrLf & dr.DriveLetter
> Text1 = Text1 & vbCrLf & dr.DriveType
> Text1 = Text1 & vbCrLf & dr.FileSystem
> Text1 = Text1 & vbCrLf & dr.Path
> Text1 = Text1 & vbCrLf & dr.ShareName
> Text1 = Text1 & vbCrLf & dr.VolumeName
> ' osv...
> End Sub

THANX!!

Ændrede det lige lidt:

Private Sub Form_Load()
Dim fso As Object
Dim dr As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'Set fso = New FileSystemObject
Set dr = fso.GetDrive(fso.GetDriveName(App.Path))

text1 = App.Path
text1 = text1 & vbCrLf & dr.DriveLetter
text1 = text1 & vbCrLf & dr.DriveType
text1 = text1 & vbCrLf & dr.FileSystem
text1 = text1 & vbCrLf & dr.Path
text1 = text1 & vbCrLf & dr.ShareName
text1 = text1 & vbCrLf & dr.VolumeName
' osv...
MsgBox text1
End Sub

/Henrik

---

I news:apyse.58$%l1.1@news.get2net.dk,
skrev Henrik <h1e2n3r4i5k@j1a2n3n4i5n6g7-j1u2u3l4.dk>:
> THANX!!

Det var da så lidt

> Ændrede det lige lidt:
>
> Private Sub Form_Load()
> Dim fso As Object
> Dim dr As Object
> Set fso = CreateObject("Scripting.FileSystemObject")
....

Ved at bruge 'As Object' opnår du "late binding", hvilket bl.a. betyder, at
du ikke i udviklingsmiljøet kan drage nytte af at få objektets properties
listet - og senere en marginalt længere afviklingstid af din kode.

Det er muligt, du har en grund til at gøre det, men hvad FileSystemObject
angår, kan du ligeså godt afbrydse en reference til "Microsoft Scripting
Runtime" (Project --> References.. i VB6) - og så få "early binding" i
stedet for.

--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp