Fa كپي فايل embeddedشده

[nazary2009]

سلام اگه بخوام همراه تصويري كه كاربر بااستفاده از كدزيردريك پوشه ذخيره مي كنه يه فايل متني كه امبدد شده رو هم درهمون پوشه كپي كنه چه كار بايدبكنم

If (Address$<>'') Then
BrowseForFolder("Select the Folder:","")
Dir$=CBK_OpenDir
If (Dir$<>'') Then
file2$=Dir$+'\yourname.bmp'
SysCommand("CopyFile","Address$,file2$")
End
​

 

[BlueMMB]

سلام .

آدرس فایل خروجی رو که می دونید و دستور کپی رو هم که بلدین پس فقط میمونه آدرس اون فایل تکست که امبدد شده که برای مثال اگه text.txt رو امبدد کنید آدرسش این میشه :

<Embedded>\text.txt

 

[nazary2009]

سلام .

آدرس فایل خروجی رو که می دونید و دستور کپی رو هم که بلدین پس فقط میمونه آدرس اون فایل تکست که امبدد شده که برای مثال اگه text.txt رو امبدد کنید آدرسش این میشه :

<Embedded>\text.txt

ببخشيد ميشه كدش روبنويسيد كجابايداين كدي كه گفتيد قراربدم من درانتهاي كدبالا قراردادم كارنكرد ممنون ازراهنماييتان

 

[Corovarice]

If (Address$<>'') Then
  BrowseForFolder("Select the Folder:","")
  Dir$=CBK_OpenDir
  If (Dir$<>'') Then
    file2$=Dir$+'\yourname.bmp'
    SysCommand("CopyFile","Address$,file2$")
    TextAdd$=Dir$+'\Text.txt'
    SysCommand("CopyFile","<Embedded>\Text.txt,TextAdd$")
  End
End