שתי הפונקציות הבאות קיימות בפרוייקט שאני בונה ( תוכנה להעברת קבצים ברשת... שרת + לקוח )

בצד השרת בתוך קובץ מודל:

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

Code:

Public Function GetFileSize(ByVal FileReqSize As String)
MsgBox FileReqSize
XFileSize = FileLen(FileReqSize)
If XFileSize <= 1000 Then
lFile = lFile & XFileSize & " Bytes." & "|"
ElseIf XFileSize <= 1024000 Then
XFileSize = 0
XFileSize = FileLen(FileReqSize) / 1024
lFile = lFile & XFileSize & " KB." & "|"
Else
XFileSize = 0
XFileSize = FileLen(FileReqSize) / 1000000
lFile = lFile & XFileSize & " MB." & "|"
End If
End Function

Public Sub GotRemoteDirectory(ByVal Data As String)

Main.Files_server.Path = "c:\
Main.Files_server.Refresh

With Main.Files_server
For lLoop = 0 To .ListCount - 1
If Len(.List(lLoop)) > 0 Then
lFile = lFile & "F*?*" & .List(lLoop) & "*" & GetFileSize("c:\" & .List(lLoop))
End If
Next lLoop
MsgBox lFile
End With

משום מה זה מציג לי את שמות הקבצים ללא הגודל שלהם, אודה על כל עזרה שהיא, תודות מראש, יוני.

שנוכל להבין - יהיה לנו יותר קל לעזור.

[ זיו ]
[ fat fish ]