WinForms

Απ: ευρεση αρχειων με βαση την επεκταση?

gmlogic — Sun, 15 Oct 2006 08:55:46 GMT

Πολύ καλό

Ευχαριστώ !!!

Απ: ευρεση αρχειων με βαση την επεκταση?

γιωργος μπακογιαννης — Wed, 11 Oct 2006 19:34:40 GMT

Για δες αυτό το link:

http://www.carlosag.net/Tools/CodeTranslator/Default.aspx

Το οποίο αποδίδει: (αλλά θέλει λίγο διόρθωση)

Namespace MyCompany.IO
    Imports System
    Imports System.IO


    Public Class FilesFinder

        Private searchPattern As String

        Private folder As String

        Private stop As Boolean = false

        Public Sub New()
            MyBase.New

        End Sub

        Public Sub New(ByVal folder As String, ByVal searchPattern As String)
            MyBase.New
            Folder = folder
            SearchPattern = searchPattern
        End Sub

        Public Property SearchPattern As String
            Get
                Return searchPattern
            End Get
            Set
                searchPattern = value
            End Set
        End Property

        Public Property Folder As String
            Get
                Return folder
            End Get
            Set
                folder = value
            End Set
        End Property

        Public Event FileFind As EventHandler

        Public Event FolderChanged As EventHandler

        Public Overloads Sub FolderSearch()
            stop = false
            FolderSearch(Folder)
        End Sub

        Private Overloads Sub FolderSearch(ByVal startFolder As String)
            For Each directory As String In Directory.GetDirectories(startFolder)
                OnFolderChanged(New FolderChangedEventArgs(directory))
                For Each fileName As String In Directory.GetFiles(directory, SearchPattern, SearchOption.TopDirectoryOnly)
                    If stop Then
                        'TODO: Warning!!! break;If
                    End If
                    OnFileFind(New FileFindEventArgs(directory, fileName))
                Next
                If Not stop Then
                    FolderSearch(directory)
                End If
            Next
        End Sub

        Public Sub Stop()
            stop = true
        End Sub

        Protected Overridable Sub OnFileFind(ByVal e As FileFindEventArgs)
            If (Not (FileFind) Is Nothing) Then
                FileFind(Me, e)
            End If
        End Sub

        Protected Overridable Sub OnFolderChanged(ByVal e As FolderChangedEventArgs)
            If (Not (FolderChanged) Is Nothing) Then
                FolderChanged(Me, e)
            End If
        End Sub
    End Class

    Public Class FolderChangedEventArgs
        Inherits EventArgs

        Private folder As String

        Public Sub New(ByVal folder As String)
            MyBase.New
            Folder = folder
        End Sub

        Public Property Folder As String
            Get
                Return folder
            End Get
            Set
                folder = value
            End Set
        End Property
    End Class

    Public Class FileFindEventArgs
        Inherits EventArgs

        Private folder As String

        Private fileName As String

        Public Sub New(ByVal folder As String, ByVal fileName As String)
            MyBase.New
            Me.folder = folder
            Me.fileName = fileName
        End Sub

        Public Property FileName As String
            Get
                Return fileName
            End Get
            Set
                fileName = value
            End Set
        End Property

        Public Property Folder As String
            Get
                Return folder
            End Get
            Set
                folder = value
            End Set
        End Property
    End Class
End Namespace

Απ: ευρεση αρχειων με βαση την επεκταση?

gmlogic — Wed, 11 Oct 2006 19:17:00 GMT

Παιδία και καμιά μεταφρασούλα σε vb και για μας :)

Απ: ευρεση αρχειων με βαση την επεκταση?

cap — Sat, 07 Oct 2006 18:36:40 GMT

Οκ - θα το δημοσιεύσω στο δικό μου με την απαραίτητη αναφορά βέβαια σε εσένα!

Απ: ευρεση αρχειων με βαση την επεκταση?

γιωργος μπακογιαννης — Sat, 07 Oct 2006 18:32:20 GMT

Blog δεν έχω, αλλά θα στο ετοιμάσω και θα στο στείλω. Ok?

Απ: ευρεση αρχειων με βαση την επεκταση?

cap — Sat, 07 Oct 2006 18:22:04 GMT

Γιώργο, αυτό με λίγο comments και μερικά παραδειγματα χρήσης δεν πιστεύεις οτι θα μπορούσε να γίνει ένα ωραίο αρθράκι; Δεν ξέρω αν έχεις blog εδώ, θα μπορούσα όμως αν θέλεις να το φιλοξενήσω στο δικό μου blog αν μου το έδινες σε πιό πλήρη μορφή.

Απ: ευρεση αρχειων με βαση την επεκταση?

γιωργος μπακογιαννης — Sat, 07 Oct 2006 16:16:34 GMT

Λίγο πιο εμποτισμένο file searching, άλλα στην ίδια φιλοσοφία του Παναγιώτη.

Σου έχω και ένα attachment ( ένα project 1000 λέξεις ) που έχει την χρήση του «FilesFinder».

using System;
using System.IO;

namespace MyCompany.IO
{
    #region FilesFinder
    public class FilesFinder
    {
        #region Declarations
        string searchPattern;
        string folder;
        bool stop = false;
        #endregion

        #region Constructor
        public FilesFinder() {
        }
        public FilesFinder(string folder, string searchPattern) {
            Folder = folder;
            SearchPattern = searchPattern;
        }
        #endregion

        #region Propertires
        public string SearchPattern {
            get { return searchPattern; }
            set { searchPattern = value; }
        }
        public string Folder {
            get { return folder; }
            set { folder = value; }
        }
        #endregion

        #region FolderSearch
        public void FolderSearch() {
            stop = false;
            FolderSearch(Folder);
        }
        void FolderSearch(string startFolder) {
            foreach (string directory in Directory.GetDirectories(startFolder)) {
                OnFolderChanged(new FolderChangedEventArgs(directory));
                foreach (string fileName in Directory.GetFiles(directory, SearchPattern, SearchOption.TopDirectoryOnly)) {
                    if (stop) break;
                    OnFileFind(new FileFindEventArgs(directory, fileName));
                }
                if (!stop) FolderSearch(directory);
            }
        }
        #endregion

        #region Stop
        public void Stop() {
            stop = true;
        }
        #endregion

        #region Events

        #region FileFindEventArgs
        public event EventHandler<FileFindEventArgs> FileFind;
        protected virtual void OnFileFind(FileFindEventArgs e) {
            if (FileFind != null) FileFind(this, e);
        }
        #endregion

        #region FolderChangedEventArgs
        public event EventHandler<FolderChangedEventArgs> FolderChanged;
        protected virtual void OnFolderChanged(FolderChangedEventArgs e) {
            if (FolderChanged != null) FolderChanged(this, e);
        }
        #endregion

        #endregion
    }
    #endregion

    #region FolderChangedEventArgs
    public class FolderChangedEventArgs : EventArgs
    {
        #region Declarations
        string folder;
        #endregion

        #region Constructor
        public FolderChangedEventArgs(string folder) {
            Folder = folder;
        }
        #endregion

        #region Propertires
        public string Folder {
            get { return folder; }
            set { folder = value; }
        }
        #endregion
    }
    #endregion

    #region FileFindEventArgs
    public class FileFindEventArgs : EventArgs
    {
        #region Declarations
        string folder;
        string fileName;
        #endregion

        #region Constructor
        public FileFindEventArgs(string folder, string fileName) {
            this.folder = folder;
            this.fileName = fileName;
        }
        #endregion

        #region Propertires
        public string FileName {
            get { return fileName; }
            set { fileName = value; }
        }
        public string Folder {
            get { return folder; }
            set { folder = value; }
        }
        #endregion
    }
    #endregion
}

Αυτά.

Απ: ευρεση αρχειων με βαση την επεκταση?

Παναγιώτης Καναβός — Sat, 07 Oct 2006 14:58:13 GMT

System.IO.Directory.GetFiles(@"c:\somefolder","*.tmp",SearchOptions.AllDirectories);

ευρεση αρχειων με βαση την επεκταση?

it048 — Sat, 07 Oct 2006 12:12:56 GMT

καλημερα!πως μπορω να βρω πχ καποιο αρχειο με βαση την επεκταση του πχ .tmp! τι κωδικα πρεπει να γραψω?
ευχαριστω