Visual C++ 6.0 / .NET (unmanaged)

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

grglaz — Wed, 28 Apr 2010 04:25:34 GMT

Σας ευχαριστω πολυ και τους δυο,δυστυχως δεν υπαρχουν οι προυποθεσεις να δοκιμασω κατι αυτη τη στιγμη...οποτε οταν τα καταφερω θα ξαναποσταρω......

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

ZiKRo — Tue, 27 Apr 2010 00:44:13 GMT

Αν κατάλαβα καλά από τα 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"));

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

dgg — Wed, 31 Mar 2010 08:15:33 GMT

Κάτι τέτοιο:

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

Read filenames from a folder....

grglaz — Wed, 31 Mar 2010 03:43:02 GMT

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

Θα ηθελα να μου πειτε ποσο δυσκολο ειναι να γινει κατι τετοιο,δλδ να μπορω να διαβαζω τα ονοματα των αρχειων μεσα σε καποιο φακελο και επειτα ειτε να τα εκτυπωνω ειτε να τα αποθηκευω σε ενα 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....

ευχαριστω