Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση | Εγγραφή | Βοήθεια
σε

 

Αρχική σελίδα Ιστολόγια Συζητήσεις Εκθέσεις Φωτογραφιών Αρχειοθήκες

Read filenames from a folder....

Îåêßíçóå áðü ôï ìÝëïò grglaz. Τελευταία δημοσίευση από το μέλος grglaz στις 27-04-2010, 21:25. Υπάρχουν 3 απαντήσεις.
Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο
  •  30-03-2010, 20:43 57911

    Read filenames from a folder....

    Καλησπερα σε ολους

    Θα ηθελα να μου πειτε ποσο δυσκολο ειναι να γινει κατι τετοιο,δλδ να μπορω να διαβαζω τα ονοματα των αρχειων μεσα σε καποιο φακελο και επειτα ειτε να τα εκτυπωνω ειτε να τα αποθηκευω σε ενα txt...
    Ειμαι σε αρχαριο επιπεδο....
    ψαχνωντας λιγο βρηκα αυτο
    http://msdn.microsoft.com/en-us/library/aa364944%28VS.85%29.aspx
    και αυτο
    http://www.boost.org/doc/libs/1_39_0/libs/filesystem/doc/index.htm.
    Αν μπορει καποιος ας μου πει απο που να ξεκινησω....και φυσικα οποιαδηποτε πληροφορια θα με βοηθουσε πολυ...ο σκοπος που θελω να κανω κατι τετοιο ειναι για να μπορω να αποθηκευω σε txt τις ονομασιες καποιων τραγουδιων ετσι ωστε να μπορω να φτιαχνω γρηγορα μια tracklist....

    ευχαριστω
  •  31-03-2010, 01:15 57914 σε απάντηση της 57911

    Απ: Read filenames from a folder....

    Κάτι τέτοιο:


    Imports System.IO

    Module Module1

        Sub Main()
           
            Dim files() As String 
            files = Directory.GetFiles("C:\Users\DGG\Downloads\1")

            Dim oWrite As New StreamWriter("C:\Users\DGG\Downloads\1\tracklist.txt")
            For Each fl In files
                oWrite.WriteLine(fl)
            Next fl

            oWrite.Close()

        End Sub

    End Module
  •  26-04-2010, 17:44 58349 σε απάντηση της 57911

    Απ: Read filenames from a folder....

    Αν κατάλαβα καλά από τα links που έχεις βάλει, ψάχνεις για κώδικα που να κάνει enumerate τα αρχεία ενός φακέλου χρησιμοποιώντας Win32 API calls.
    Έφτιαξα ένα functions σε generic C++ και Win32 API που δέχεται 2 παραμέτρους. Η πρώτη είναι η "lpszFakelosArxeia" όπου είοναι ο φακελος μαζεί με τα search wildchar στο τελος (π.χ.: "C:\Works\*.*") και η δευτερη είναι η "lpszArxeioGiaSosimo", το αρχείο κειμένου όπου θα βγεί το αποτέλεσμα (π.χ.: "C:\Works\EnumFiles.txt") .

    Σειμήωση: Χρησημοποιούντε unicode functions για όλα τα strings.

    void EnumFiles(LPCTSTR lpszFakelosArxeia, LPCTSTR lpszArxeioGiaSosimo)
    {
    WIN32_FIND_DATA wfd;
    HANDLE hFind, hFileToSave;
    TCHAR szLineOut[1024];
    DWORD dwBytesWritten;

    hFileToSave = CreateFileW(lpszArxeioGiaSosimo,
    GENERIC_WRITE,
    0,
    NULL,
    OPEN_ALWAYS,
    FILE_ATTRIBUTE_NORMAL,
    NULL);

    if(hFileToSave != INVALID_HANDLE_VALUE)
    {
    hFind = FindFirstFile(lpszFakelosArxeia, &wfd);
    if(hFind != INVALID_HANDLE_VALUE)
    {
    wsprintf((LPTSTR)&szLineOut, _T("Arxeia tis anazitisis: %s\r\n"), lpszFakelosArxeia);
    WriteFile(hFileToSave, &szLineOut, _tcslen((LPCTSTR)&szLineOut) * sizeof(TCHAR), &dwBytesWritten, NULL);
    do
    {
    wsprintf((LPTSTR)&szLineOut, _T("%s\r\n"), &wfd.cFileName);
    WriteFile(hFileToSave, &szLineOut, _tcslen((LPCTSTR)&szLineOut) * sizeof(TCHAR), &dwBytesWritten, NULL);
    }
    while(FindNextFile(hFind, &wfd));

    FindClose(hFind);
    }
    CloseHandle(hFileToSave);
    }
    }

    Παράδειγμα: EnumFiles(_T("D:\\Works\\*.*"), _T("D:\\Works\\EnumFiles.txt"));
  •  27-04-2010, 21:25 58381 σε απάντηση της 58349

    Απ: Read filenames from a folder....

    Σας ευχαριστω πολυ και τους δυο,δυστυχως δεν υπαρχουν οι προυποθεσεις να δοκιμασω κατι αυτη τη στιγμη...οποτε οταν τα καταφερω θα ξαναποσταρω......
Προβολή Τροφοδοσίας RSS με μορφή XML
Με χρήση του Community Server (Commercial Edition), από την Telligent Systems