\"Command$\"

Det er vist ikke muligt med mindre du bruger nogle specielle I/O API kald.

Command$ returnerer blot de parametre som der er blevet overført til programmet, den kan ikke få LFN\'et ud af et SNF.

hvordan laver man så specielle I/O API

hvis det kun er det fulde filnavn, du skal bruge, er det her en (lidt primitiv) metode:

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

Set dropfil = fso.GetFile(Command$)
Set Folder = fso.GetFolder(dropfil.ParentFolder)
For Each fil In Folder.Files
    If fil.ShortName = dropfil.ShortName Then
        MsgBox fil.Path
    End If
Next fil


Hvis du også har brug for det fulde foldernavn, skal der lidt mere til.

Hvis du kan lave det med fuldstig, \"drev\\folder\\file\" så er der 60 point til dig.

Lav en reference til Microsoft Scripting Runtime

Private fso As Scripting.FileSystemObject

Private Function LongPath(path As String) As String
Dim folder1 As Folder
Dim folder2 As Folder
Dim folder3 As Folder
Dim fil1 As File
Dim fil2 As File

    If fso.DriveExists(path) Then
        LongPath = path
    ElseIf fso.FolderExists(path) Then
        Set folder1 = fso.GetFolder(path)
        Set folder2 = fso.GetFolder(folder1.ParentFolder)
        For Each folder3 In folder2.SubFolders
            If folder3.ShortName = folder1.ShortName Then
                LongPath = fso.BuildPath(LongPath(folder2.path), folder3.Name)
                Exit For
            End If
        Next folder3
    ElseIf fso.FileExists(path) Then
        Set fil1 = fso.GetFile(path)
        Set folder1 = fso.GetFolder(fil1.ParentFolder)
        For Each fil2 In folder1.Files
            If fil2.ShortName = fil1.ShortName Then
                LongPath = fso.BuildPath(LongPath(folder1.path), fil2.Name)
                Exit For
            End If
        Next fil2
    Else
    \'  Bør ikke kunne ske
        Err.Raise vbObjectError + 1000, \"LongPath\", path & \" er hverken fil, folder eller drev\"
    End If


End Function
Private Sub Command1_Click()

    Set fso = CreateObject(\"Scripting.FileSystemObject\")
    MsgBox LongPath(Command$)
    Set fso = Nothing
End Sub

Jeg for fejl i linje:

Private fso As Scripting.FileSystemObject
-----------------------------
Compile error:
User-defined type not defined
-----------------------------

det kan godt være \"reference\" hvordan laver jeg en reference ?

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

så opretter du en reference.

Den linie indsætter du LIGE før

If fso.DriveExists(path) Then

i LongPath funktionen..

nu for jeg fejl i \"Dim folder1 As Folder\"

Nej jeg satte Private fso As Scripting.FileSystemObject ind det skulle værere Set fso = CreateObject(\"Scripting.FileSystemObject\") fejlen er der indnu

fejl i linje: Private fso As Scripting.FileSystemObject

<< sjh  >>

*g* sorry .. slet den linie Private fso..

og slet de rådne Dim\'s .. de skal IKKE bruges!
Og du kan ikke Dim\'me As Folder eller As File med mindre Folder og File er en bruger defineret data type.

Hvis jeg skriver \"Project1.exe D:\\Test\\Ny mappe\\Ny mappe\\Ny mappe\\Ny mappe\\Ny mappe\\Ny mappe\\Ny Tekstdokument.txt\" så vil jeg få error i linje: [Err.Raise vbObjectError + 1000, \"LongPath\", path & \" er hverken fil, folder eller drev\" ] men jeg har lavet om på scripet så ser det sådan ud og nu for jeg hele stigen


Private Function LongPath(path As String) As String
Set fso = CreateObject(\"Scripting.FileSystemObject\")
    If fso.DriveExists(path) Then
        LongPath = path
    ElseIf fso.FolderExists(path) Then
        Set folder1 = fso.GetFolder(path)
        Set folder2 = fso.GetFolder(folder1.ParentFolder)
        For Each folder3 In folder2.SubFolders
            If folder3.ShortName = folder1.ShortName Then
                LongPath = fso.BuildPath(LongPath(folder2.path), folder3.Name)
                Exit For
            End If
        Next folder3
    ElseIf fso.FileExists(path) Then
        Set fil1 = fso.GetFile(path)
        Set folder1 = fso.GetFolder(fil1.ParentFolder)
        For Each fil2 In folder1.Files
            If fil2.ShortName = fil1.ShortName Then
                LongPath = fso.BuildPath(LongPath(folder1.path), fil2.Name)
                Exit For
            End If
        Next fil2
    Else
    LongPath = path
    End If
End Function

Private Sub Form_Load()
    On Error Resume Next
    MsgBox LongPath(Command$)
    Set fso = Nothing
End Sub


Tak for hjælpen i for 60 point. ;)

Jeg glemte point

Jeg glemte point sådan.

<< sjh >>
Det er fordi \"Ny Mappe\" indeholder mellemrum.
Du skal nok skrive

Project1.exe \"D:\\Test\\Ny mappe\\Ny mappe\\Ny mappe\\Ny mappe\\Ny mappe\\Ny mappe\\Ny Tekstdokument.txt\"

istedet.

men hvis det virkede så er det jo helt fint.

Hmm .. der gik vist noget galt med pointene .. eller hvad ?

hvis jeg trækker filen over Project1.exe kan jeg ikke skrive \"D:\\Test\\Ny mappe\\......\" men det virker fint.

i har fået point det var bare mig der glæmte at Accepter svar. ;)

Nåå .. nej .. DOH!

Tjaa. . jeg har fået 0 point, men det gør ikke noget.. jeg hjalp jo ikke SÅ meget ..

Hvis du går ind under Spørgsmål besvaret af mig. så kan du se at du har fået 60 point (\"Command$\")

Hmm ..wierd ..

swjensen har fået 60 .. prøv at se:

    Accepteret svar fra swjensen
    Point : 60
    05-10 2000 18:03:41

så se min:

    Accepteret svar fra tdaugaard
    Point : 0
    06-10 2000 22:40:28

anyway, det gør ikke noget .. swjensen kom trods alt med selve koden.

ja jeg kan godt se at der sår 0 Point ved dig, men jeg er nesten sikker på at jeg skræv 60 i bægge boxe, Kan du ikke huske vor mange point du havde. ellers må du have dem tilgode.

Det var ikke mening at snyde dig ellers skræv jeg jo ikke: Tak for hjælpen \"i\" for 60 point

Bare rolig .. det var ikke sådan ment.. jeg tænkte nok det var en fejl i fordelingen da der STOD at jeg havde fået 0 point. Havde der stået afvist så kunne jeg se at du ikke VILLE have givet mig point.

Det er helt i orden.

Ja det er jo også rigtig. :)

>det kan godt være \"reference\" hvordan laver jeg en reference ?

I VB:
Vælg menuen *Project*
Vælg menupunktet *References...*

Under *Available References:* finder du *Microsoft Scripting Runtime* (Scrrun.dll) og giver den et flueben.

Så har du adgang til objekterne FileSystemObject, File, Folder, Drive m.fl. mens du skriver koden. Du kan erklære dem explicit (Dim fso as FileSystemObject) og få hjælp til metoder og parametre.

Du kan også lade være med at erklære noget. Så gætter VB sig frem, og opretter objecter og varianter efter behov. Du får du ikke nogen syntakshjælp og koden kører langsommere.

Først ville du

DIM\'e samtlige varabler AS Folder og File, derefter

SET\'e dem til en reference.

DET er langsommere.

Det lyder da underligt hvis man ikke får syntaxhjælp i VB på et object der er oprettet via Set var = CreateObject(\"class_id\")

det gør man i Visual InterDev i ASP.

> Set fso = CreateObject(\"Scripting.FileSystemObject\")
>så opretter du en reference. 

Det er ikke det, jeg mener, når jeg skriver \'sæt en reference\'.

Som jeg har beskrevet ovenfor, er det noget du gør i VB-udviklingsmiljøet - du angiver, at du vil bruge de objekter, der findes i scrrun.dll.

I VBscript kan du ikke dim\'e variabler med deres type. Det kan du godt i VB, og derfor får du kun syntakshjælp, når du eksplicit skriver \'dim fso as filesystemobject\'. Og medmindre du har sat en reference i udviklingsmiljøet, får du en kompileringsfejl, som sjh beskriver ovenfor:
>-----------------------------
>Compile error:
>User-defined type not defined
>-----------------------------

Nåå .. på den måde ... sorry :)

selv :-)