pcusta_99 Posted November 12, 2011 Share Posted November 12, 2011 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 ? Quote Link to comment Share on other sites More sharing options...
NotToday Posted November 12, 2011 Share Posted November 12, 2011 [code]http://s2.dosya.tc/server4/kzsiQr/kopyala.zip.html[/code] Quote Link to comment Share on other sites More sharing options...
pcusta_99 Posted November 12, 2011 Author Share Posted November 12, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
NotToday Posted November 12, 2011 Share Posted November 12, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
pcusta_99 Posted November 12, 2011 Author Share Posted November 12, 2011 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. Quote Link to comment Share on other sites More sharing options...
dgkngngr Posted November 12, 2011 Share Posted November 12, 2011 galiba resmin üstüne tıklayınca kaydet açılmasını istiyor ? Quote Link to comment Share on other sites More sharing options...
NotToday Posted November 12, 2011 Share Posted November 12, 2011 (edited) 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 Quote Link to comment Share on other sites More sharing options...
xarax Posted November 12, 2011 Share Posted November 12, 2011 [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 Link to comment Share on other sites More sharing options...
pcusta_99 Posted November 12, 2011 Author Share Posted November 12, 2011 (edited) [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 Quote Link to comment Share on other sites More sharing options...
NotToday Posted November 12, 2011 Share Posted November 12, 2011 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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.