Klasör yada dosya kopyalamada windows uyarısı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

delphi ile aldığım bir dosyanın kopyasını başka bir dizine yada usb yüklerken windowsda uyarı ekranı gelerek F:\Data klasörü yok taşınmış yada silinmiş olabilir dosya oluşturmak istiyormusunuz diyor.Bu uyarıyı vermeden direk işlemi nasıl yaptırta biliriz.durumu kullanıcıya bırakmak istemiyorum.

Kod: Tümünü seç

 var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;

  begin

  fillChar( OpStruc, Sizeof(OpStruc), 0 );
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
   StrPCopy( frombuf,'C:\UsbAnahtar\Data' );
  StrPCopy( tobuf, edit7.text+'UsbAnahtar\Data\Database.ini' );
   
  With OpStruc DO Begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION ;//or FOF_RENAMEONCOLLISION  YAZARSAN KOPYAYI TEKRARLAR;
  end;
  ShFileOperation( OpStruc );
  end;
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen ihalilcoban »

Merhaba,

Kod: Tümünü seç

fFlags := FOF_SILENT;
şeklinde kullanırsan uyarı vermemesi lazım.
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

fFlags := FOF_SILENT; soruyor :(

fFlags :=FOF_NOERRORUI; olarak düzenledim oldu.
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

bu kodlara ProgressBar nasıl uyarlanır
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen ihalilcoban »

FileStream kullanarak yapılabilir. Bir ara uğraşmıştım. Örnek bir proje ekliyorum. Kodlarla ilgili açıklamalar içerisinde mevcut. Umarım işine yarar.
Dosya ekleri
DosyaKopyalama.zip
(59 KiB) 81 kere indirildi
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

çook teşekkürler işe yarar tabiki :bravo:
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen ihalilcoban »

Rica ederim. İyi çalışmalar.
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

hocam burada dizin aldın klasör varsa kopyalama yapıyor.Klösörü yoksa o dizinde yapmıyor.Klasörü oluşturabilirmiyiz

Kod: Tümünü seç

  KaynakDosya := edit7.text+'UsbAnahtar\Data\Database.ini';
    HedefDosya  :='C:\UsbAnahtar\Data\Database.ini' ;
C:\UsbAnahtar\Data\ dizinin olması şart.Bu dizini kodla nasıl sağlanır denemeniz var mı
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen ihalilcoban »

CreateDir ile Klasörü oluşturabiliriz.

Kod: Tümünü seç

    
  If not CreateDir('C:\UsbAnahtar\Data\') Then
      Begin
      CreateDir('C:\UsbAnahtar\Data\');
      end;
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

Kod: Tümünü seç

 KaynakDosya := edit7.text+'UsbAnahtar\Data\*.*';
    HedefDosya  :='C:\UsbAnahtar\Data\' ;
çoklu dosya taşıma nasıl olur hocam *.* kodunu almıyor
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen ihalilcoban »

Kodları üzerinde biraz değişiklik yaptım. Sanırım istediğinizi yapar hale gelmiştir. İlgili alanları kendinize göre düzenlersiniz. İyi çalışmalar.
Dosya ekleri
DosyaKopyalama.zip
(58.55 KiB) 80 kere indirildi
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

hocam kodlarda bir değişim göremedim :( klasörü kopyalamıyor yada *.* uzantılı olarakta
ihalilcoban
Üye
Mesajlar: 121
Kayıt: 10 Ara 2015 10:39

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen ihalilcoban »

*.* demeye gerek yok. Zaten ListFileDir fonksiyonu ile, belirtilen dizin içindeki dosyaların hepsi ListBox1 içerisine alınıyor. Yeni eklediğim projede formda ListBox yok mu? Ben indirip tekrar kontrol ettim değişiklikler mevcut ve istenilen işlemi yapıyor. Proje ismini değiştirip tekrar ekleyeyim bir bakın.
Dosya ekleri
DK.zip
(58.55 KiB) 83 kere indirildi
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Re: Klasör yada dosya kopyalamada windows uyarısı

Mesaj gönderen haydarxxx »

bir önceki aynıydı ondan dedim hocam
şimdi süperrr :bravo: :bravo: :bravo:
Cevapla