Kansion sisällön listaus hyperlinkeiksi

Hämmentynyt

Käytössä on suuri lähiverkko, ja lähiverkon palvelimelta pitäisi pystyä listaamaan erään kansion sisältö hyperlinkeiksi. Siis niin, että kaikki pystyisivät koneiltaan kätevästi kansioon pääsemään otettuaan kopioin linkkisivusta omille koneilleen. Kansion sisältö saisi mieluusti tulla aakkosjärjestyksessä.

Miten tälläinen onnistuisi? Minulla on todella vähän kokemusta VBscriptistä, joten perusteelliset ohjeet, kiitos. Koodi saisi olla VBscriptiä. Haluaisin myös tietää, täytyykö koneelle asentaa mitään java-softaa, jotta Internet explorer toistaisi Java-scriptin ongelmitta. Jos mitään ei tarvitse, voisi koodi olla myös java-scriptiä.

8

614

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • as-keetti

      eikös homma mene helpoimmin niin, että
      jokainen raahaa ko. palvelimen kansion
      pikakuvakkeeksi työpöydälleen. Sen kun
      sitten näpäyttää auki niin siinähän se
      luettelo on.

      Vai käsitinkö ongelman jotenkin väärin?

      • Hämmentynyt

        Tokihan tuo voisi noinkin mennä, mutta kätevämpää olisi, jos olisi html-sivu, joka aukaisee kansiot uudessa ikkunassa.

        Sisällön listaus pitäisi mahdollisesti lisätä myös muihin kansioihin. Käytössä on myös joitakin kämmentietokoneita, joilla mahdollisesti sivu pitäisi saada auki. Kämmentietokoneella navigointi helpottuisi huomattavasti, jos olisi olemassa html-sivu, josta käsin saisi kansiot auki.


    • tumppu1st

      ...pystyyn ja kyseinen kansio sisältöineen jaettavaksi. Niin minä tuon toteuttaisin.

      -T

    • Tämä toimii

      Tässä apua Hämmentyneelle.

      Laitoin Netikan forumille apuja php llä toimivaan tiedostolistaukseen ja sillä saat suuretkin määrät tiedostoja listattua.

      Toimii paremmin kaikilla selaimilla kuin VBscriptillä tehty !

      Käy tutkimassa esimerkkiä ja hakemassa valmis koodi itsellesi ja ihan ilmaiseksi vaikkei ehkä pitäisi ;=)

      http://www.netikka.fi/forums/fin/topic.asp?TOPIC_ID=1050

      • kojonkra

        Jos homman piti toimia niin että lähiverkon käyttäjät kopsaavat sen linkkisivun omille koneilleen niin tuo ylläoleva php-hässäkkä ei pelitä ilman, että joka koneelle asennetaan joku webbiservo php-tuella (esim. iis).

        Ja noilla scripteilläkin (vb ja js) se on käsittääkseni mahdollista ainoastaan käyttämällä FileSystemObject - tyyppistä activeX-objektia. Se taas saa aikaiseksi sen, että selain kysyy aina käyttäjältä sopiiko, että sellaista käytetään.


      • toma täimii
        kojonkra kirjoitti:

        Jos homman piti toimia niin että lähiverkon käyttäjät kopsaavat sen linkkisivun omille koneilleen niin tuo ylläoleva php-hässäkkä ei pelitä ilman, että joka koneelle asennetaan joku webbiservo php-tuella (esim. iis).

        Ja noilla scripteilläkin (vb ja js) se on käsittääkseni mahdollista ainoastaan käyttämällä FileSystemObject - tyyppistä activeX-objektia. Se taas saa aikaiseksi sen, että selain kysyy aina käyttäjältä sopiiko, että sellaista käytetään.

        No ottihan viimein joku kantaa.

        lainaus Hämmentyneeltä:
        "ja lähiverkon palvelimelta pitäisi pystyä listaamaan erään kansion sisältö hyperlinkeiksi. Siis niin, että kaikki pystyisivät koneiltaan kätevästi kansioon pääsemään otettuaan kopioin linkkisivusta omille koneilleen...."

        Ei tosiaan mainostamani ja hyvin toimiva php koodi omilta koneilta toimikkaan koska kyse on palvelinpuolen skriptistä ja php lle ominaisella tavalla kopiointi ei kotikonstein onnistu vaan pitää hakea lyhyehkö koodi tuolta.

        http://www.netikka.fi/forums/fin/topic.asp?TOPIC_ID=1050


        Mutta, mutta ... kotikoneilla on myös monenlaisia ja merkkisiä selaimia joita ajatellen php-koodi voisi olla parempi kuin esim vb pätkä.

        Itselläni ei koneella tällä hetkellä ole php-serveriä aiemmin kyllä, mutta totesin sen turhaksi koska palvelimilta kyllä saa todennettua toimiiko koodit vai ei.

        Foorumi on tosin Java ja Visualbasic forum mutta JavaScripti stä en osaa sanoa enkä pidä todennäköisenä saisiko sillä pyydettyä palvelinpuolen härpäkettä kevyesti tehtyä koska kyseessä on selaimen ohjaus ohjelmointi kieli. Vb taasen soveltuu parhaiten suurten ja pienten kone sovellusten ohjelmointiin ja exe n tekoon.

        Paras varmaan olisi Javalla ja/tai Mysql llä tehty tietokanta ohjelma (raskas ja isokoinen) jota ohjattaisiin palvelinpuolen php scriptillä....

        Kannattaa tutustua ensin hiukan myös Symbian ohjelmointiin jos kännykkään listauksen halajaa....

        Olisko suuri vaiva jos selain kyselisi: Haluatko varmasti ;=) ehkä....

        Näiden puutteessa kevyt ja hyvin toimiva php pätkä ajanee saman asian.... .. ..

        Ei tule nyt mieleen muuta neuvoa kuin katsella ja kuulostella olisiko muita scriptejä tulossa kuin antamani.

        Oletan hämmentyneen ottaneen pätkän vastaan ja hyödyntäneen sen ?


    • hyvin huomaa ettei suurimmalla osalla ole hajuakaan siitä mitä puhuvat... :D lol




      Dim fs, folder, file, item, url
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set folder = fs.GetFolder("c:\windows")
      'Display the target folder and info.
      Response.Write("" & folder.Name & " - " & folder.Files.Count & " files, ")
      If folder.SubFolders.Count > 0 Then
      Response.Write(folder.SubFolders.Count & " directories, ")
      End If
      Response.Write(Round(folder.Size / 1024) & " KB total." & "" & vbCrLf)
      Response.Write("" & vbCrLf)
      'Display a list of sub folders.
      For Each item In folder.SubFolders
      ListFolderContents(item.Path)
      Next
      'Display a list of files.
      For Each item In folder.Files
      url = MapURL(item.path)
      Response.Write("" _
      & item.Name & " - " _
      & item.Size & " bytes, " _
      & "last modified on " & item.DateLastModified & "." _
      & "" & vbCrLf)
      Next
      Response.Write("" & vbCrLf)

      • tää vois tiätty auttaa kans vähän ;)



        Function MapURL(path)
           Dim rootPath, url
           rootPath = Server.MapPath("/")
           url = Right(path, Len(path) - Len(rootPath))
           MapURL = Replace(url, "\", "/")
        End Function


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      39
      6895
    2. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      32
      3888
    3. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      45
      3270
    4. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2844
    5. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      16
      2662
    6. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2228
    7. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      16
      2176
    8. Koko ajan olet

      Senkin suhteen kiusannut. Halut on ihan mielettömät olleet jo pitkään
      Ikävä
      37
      2082
    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      48
      2037
    10. Miksi et irrota otettasi

      Suhteeni?
      Ikävä
      37
      1952
    Aihe