Projenin Bir Dosyasını Bir Yere Kaydetme

[pcusta_99]

Meraba arkadaşlar. Ben mesela AutoPlay\Docs\belge.doc u bir Gözat penceresi açarak biryere kaydetmesi veya kopyalamasını istiyorum. Bunu nasıl yapabilirim ?

[NotToday]

[code]http://s2.dosya.tc/server4/kzsiQr/kopyala.zip.html[/code]

[pcusta_99]

Arkadaşlar ben INPUT kullanmadan bu kodlarla sadece gözat yeri olup tamam deyince kaydetsin diye kodları bir butona böyle yaptım.

[code]sAl = Dialog.FolderBrowse("Select Folder", _SourceFolder .. "\\AutoPlay");

StatusDlg.Show(MB_ICONINFORMATION, false);
File.Copy(_SourceFolder.."\\AutoPlay\\Docs\\belge.doc",sAL, true, true, false, true, nil);
StatusDlg.Hide();[/code]

Ama olmuyor.

Edited November 12, 2011 by pcusta_99

[NotToday]

o zaman ınputun özelliklerinden visiple tikini kaldırırsan önizlemede gözükmez

Veya Globale

[quote]function yol()
sAl = Dialog.FolderBrowse("Select Folder", _SourceFolder .. "\\AutoPlay");
end

function kopyala()
StatusDlg.Show(MB_ICONINFORMATION, false);
File.Copy(_SourceFolder.."\\AutoPlay\\Docs\\belge.doc",sAl, true, true, false, true, nil);
StatusDlg.Hide();
end[/quote]

Yazıp Gözat butonuna yol() kopyala butonuna kopyala() yazabilirsin

Edited November 12, 2011 by ReaLyMaN

[pcusta_99]

Benim istediğim şimdi sadece kaydet butonu oloacak butona tıklayınca gözat açılcak daha sonra dosyayı kopyalayacak. Bunu sadece bir butonla yapmak istiyorum. Yani gözattıktan sonra tamam deyince hemen kopyalayacak.

[dgkngngr]

galiba resmin üstüne tıklayınca kaydet açılmasını istiyor ?

[NotToday]

Buttonla uğraşmasan kaydet butonuna direkt bunu yazsan olmaz mı?

[quote]sAl = Dialog.FolderBrowse("Select Folder",_DesktopFolder);
StatusDlg.Show(MB_ICONINFORMATION, false);
File.Copy(_SourceFolder.."\\AutoPlay\\Docs\\belge.doc",sAl, true, true, false, true, nil);
StatusDlg.Hide();[/quote]

Edited November 12, 2011 by ReaLyMaN

[xarax]

[code]folder = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
StatusDlg.Show(MB_ICONNONE, false);
File.Copy("AutoPlay\\Docs\\belde.doc", folder, true, true, false, true, nil);
error = Application.GetLastError();
StatusDlg.Hide();
if error == 0 then
Dialog.Message("Bilgi", "Başarılı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);end[/code]

[pcusta_99]

[quote name='ReaLyMaN' date='12 November 2011 - 17:51 ' timestamp='1321113087' post='1110834']
Buttonla uğraşmasan kaydet butonuna direkt bunu yazsan olmaz mı?

[quote]sAl = Dialog.FolderBrowse("Select Folder",_DesktopFolder);
StatusDlg.Show(MB_ICONINFORMATION, false);
File.Copy(_SourceFolder.."\\AutoPlay\\Docs\\belge.doc",sAl, true, true, false, true, nil);
StatusDlg.Hide();[/quote]
[/quote]

Benim de istediğim buydu. Yardımları için Realyman arkadaşıma teşekkürler. (Teşekkür butonunu kullandım ve ayrıca burdan da teşekkür etmek istedim.)


[quote name='xarax' date='12 November 2011 - 17:53 ' timestamp='1321113183' post='1110836']
[code]folder = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
StatusDlg.Show(MB_ICONNONE, false);
File.Copy("AutoPlay\\Docs\\belde.doc", folder, true, true, false, true, nil);
error = Application.GetLastError();
StatusDlg.Hide();
if error == 0 then
Dialog.Message("Bilgi", "Başarılı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);end[/code]
[/quote]


Bu kod için de teşekkürler...

Edited November 12, 2011 by pcusta_99

[NotToday]

Bir de bunu sonuna ekleyebilirsin

[quote]error = Application.GetLastError();

StatusDlg.Hide();

if error == 0 then

Dialog.Message("Bilgi", "Başarılı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
else
Dialog.Message("Hata", "Kaydetme Başarısız !", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
[/quote]