חיפוש

עזרה

הרשמה

התחברות

עדכונים

תיכנות
UnderWarrior Forums : תיכנות

נושא: העתקת קבצים ל-ClipBoard

כותב

הודעה

<< נושא קודם | נושא הבא >>

yuee
משתמש פעיל

הצטרף / הצטרפה: 27 December 2007
מדינה: Israel
משתמש: מנותק/ת
הודעות: 65

נשלח בתאריך: 11 May 2011 בשעה 12:34

| IP רשוּם

מצאתי ברשת את הפונקציה הבאה:

קוד:

Public Function ClipboardCopyFiles(ByVal Files() As String) As Boolean

        Dim dataObject As New DataObject
        Dim varObject(0) As String

        Dim fileName As String
        Dim idxFile As Integer
        Dim scriptingFile As Scripting.File
        Dim fileSysObject As New Scripting.FileSystemObject

        Try
            'Clipboard.SetDataObject(New DataObject)
            For idxFile = LBound(Files) To UBound(Files) - 1
                If Not (Files(idxFile) Is Nothing) Then
                    scriptingFile = fileSysObject.GetFile(Files(idxFile).ToString())
                    fileName = scriptingFile.ShortPath
                End If
            Next
            '//
            varObject(0) = fileName
            dataObject.SetData(DataFormats.FileDrop, False, varObject)
            Clipboard.SetDataObject(dataObject)
            '//
            ClipboardCopyFiles = True
        Catch ex As Exception
            MsgBox(ex.Source & " : " & ex.Message)
            ClipboardCopyFiles = False
            Throw ex
        End Try

    End Function

הבעיה היא שהפונקציה מעתיקה רק קובץ אחד בלבד מתוך המערך שהיא מקבלת.
נראה כי הבעיה היא בלולאה.
יש רעיונות כיצד לתקן זאת?

__________________
כשאלברט איינשטיין נשאל, מה אתה חושב על העתיד? הוא ענה: "אני לא מספיק לחשוב עליו, כי הוא מגיע בקצב מהיר מדי"
פורום מצלמות אבטחה

חזרה לתחילת העמוד

NewMan
משתמש מתחיל

הצטרף / הצטרפה: 06 May 2011
מדינה: Israel
משתמש: מנותק/ת
הודעות: 29

נשלח בתאריך: 13 May 2011 בשעה 05:39

| IP רשוּם

אני לא מכיר את המחלקות האלו, אבל מהסתכלות שטחית אני רואה ש dataObject.SetData הוא מחוץ ללולאה ומתבצע רק פעם אחת עבור הקובץ האחרון.

או

varObject אמור להכיל את שמות כל הקבצים ואז מכניסים אותו ל DataObject.

וחוץ מזה כמדומני שזה בכלל בהערה.

חזרה לתחילת העמוד

אם ברצונך להגיב לנושא זה עליך קודם להתחבר
אם אינך רשום/ה כבר עליך להרשם

גרסת הדפסה

אינך יכול/ה לשלוח נושאים חדשים בפורום זה
אינך יכול/ה להגיב לנושאים בפורום זה
אינך יכול/ה למחוק את הודעותיך ותגוביך בפורום זה
אינך יכול/ה לערוך את הודעותיך ותגובותיך בפורום זה
אינך יכול/ה לצור סקרים בפורום זה
אינך יכול/ה להצביע בסקרים בפורום זה