من چندین ساب دارم هر ساب من به زمان نامشخصی نیازه داره تا کارش بدرستی انجام بده
حالا مشکل من اینکه من خروجی این ساب ها را میخوام ارسال کنم به جایی ولی مشکل اینکه خروجی من اماده نشده !
من از اسلیپ کمک گرفتم ولی نتیجه بخش نبود تو هر گوشی زمان پروسه نامشخص بود.
میدونم دستور Wait For هست و لی اصلا این دستور درک نکردم
لطفا کمک کنید من برای اینکه بتونم صبر کنم تا خروجی هر ساب بگیرم و عملیات اخرم روی ساب ها انجام بدم چیکار باید بکنم.
مثلا در این ساب من لیست فایل هارو میگیرم چند ساب این مدلی دارم.
Sub Files(Dir As String) As List
Dim l,l2 As List : l.Initialize
l2 = File.ListFiles(Dir)
For i = 0 To l2.Size - 1
Dim fn,fa As String
fn = l2.Get(i)
fa = File.Combine(Dir,fn)
If File.IsDirectory(Dir,fn) Then
l.AddAll(Files(fa))
else if fn.ToLowerCase.EndsWith(".pgk") Then
l.Add(fa)
End If
Next
File.WriteString(File.DirDefaultExternal,"allfile.txt",fa)
Return l
End Sub
حالا بایک ساب دیگه میخوام خروجی این کپی کنم جایی دیگر
Sub Copy
i = File.OpenInput(File.DirDefaultExternal,"allfile.txt.JPG")
o = File.OpenOutput(File.DirDefaultExternal,"allfile2222.txt",False)
If File.ExternalWritable = True Then
File.Copy2(i,o)
Msgbox("Copy Successfully!","")
Else
Msgbox("Err","")
End If
End Sub
مشکل اینکه ساب یک هنوز کارش تموم نشده میره ساب دو ! و عملیات ناقص میشه.
سوال
AdultWolf 4
سلام
من چندین ساب دارم هر ساب من به زمان نامشخصی نیازه داره تا کارش بدرستی انجام بده
حالا مشکل من اینکه من خروجی این ساب ها را میخوام ارسال کنم به جایی ولی مشکل اینکه خروجی من اماده نشده !
من از اسلیپ کمک گرفتم ولی نتیجه بخش نبود تو هر گوشی زمان پروسه نامشخص بود.
میدونم دستور Wait For هست و لی اصلا این دستور درک نکردم
لطفا کمک کنید من برای اینکه بتونم صبر کنم تا خروجی هر ساب بگیرم و عملیات اخرم روی ساب ها انجام بدم چیکار باید بکنم.
مثلا در این ساب من لیست فایل هارو میگیرم چند ساب این مدلی دارم.
Sub Files(Dir As String) As List Dim l,l2 As List : l.Initialize l2 = File.ListFiles(Dir) For i = 0 To l2.Size - 1 Dim fn,fa As String fn = l2.Get(i) fa = File.Combine(Dir,fn) If File.IsDirectory(Dir,fn) Then l.AddAll(Files(fa)) else if fn.ToLowerCase.EndsWith(".pgk") Then l.Add(fa) End If Next File.WriteString(File.DirDefaultExternal,"allfile.txt",fa) Return l End Subحالا بایک ساب دیگه میخوام خروجی این کپی کنم جایی دیگر
Sub Copy i = File.OpenInput(File.DirDefaultExternal,"allfile.txt.JPG") o = File.OpenOutput(File.DirDefaultExternal,"allfile2222.txt",False) If File.ExternalWritable = True Then File.Copy2(i,o) Msgbox("Copy Successfully!","") Else Msgbox("Err","") End If End Subمشکل اینکه ساب یک هنوز کارش تموم نشده میره ساب دو ! و عملیات ناقص میشه.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.