Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Kodlama ve Komutlar » Klasör Kopyalama
VFP altında bir klasörü bir yerden bir yere kopyalayabilirmiyim. Eğer bunu başaramazsam en azından içindeki dosyaları başka bir klasöre taşımam gerekiyor. Ancak dosya isimleri belli olmadığından copy file ile kopyalayamıyorum. Çünkü *.* 'ı bu komut tanımıyor.
Şimdiden teşekkür ederim
gökçe bey;
http://www.fox4um.com/doku.php?id=vfp_i … i#internal
inceleyin.
*****
FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile("c:\MTSK\DATA\*.*", "c:\MTSK\DATA1\")
mydirectories table içinde folderpath alanı var. bu alanın bilgileri:
folderpath
c:\
c:\dene\
c:\dene\1\
..
.
.
.
benim amacım folderpath alanındaki klasörleri,içindeki dosyalarla birlikte başka bir yere yedek almak.
locate
BROWSE
yol="d:\yedek\"
SET SAFETY OFF
SELECT myDirectories
SCAN
scatter memvar
if not directory(yol+SUBSTR(m.folderpath,4))
mkdir yol+SUBSTR(m.folderpath,4)
ENDIF
kaynak=RTRIM(m.folderpath)+"*.*"
hedef=yol+SUBSTR(RTRIM(m.folderpath),4)
COPY FILE (m.kaynak) TO (m.hedef)
ENDSCAN
cannot create file hatası veriyor. bakabilirseniz sevinirim.
çok detaya girmeden bendeki çalışan bir örnek kodu yazayım :
Xdosya=ADIR(dosyalar,SYS(5)+SYS(2003)+"\irsdata\irsdata1\*.*") && sendeki kaynak bölümü
FOR Xi=1 TO Xdosya
SET SAFETY OFF && önceden dosya var ise durmasın
COPY FILE dosyalar[Xi,1] TO c:\atenuygulamalar\irsdata && sendeki hedef bölümü
SET SAFETY ON
ENDF
mydirectories table içinde folderpath alanı var. bu alanın bilgileri:
folderpath
c:\
c:\dene\
c:\dene\1\
..
.
.
.benim amacım folderpath alanındaki klasörleri,içindeki dosyalarla birlikte başka bir yere yedek almak.
locate
BROWSE
yol="d:\yedek\"
SET SAFETY OFFSELECT myDirectories
SCAN
scatter memvar
if not directory(yol+SUBSTR(m.folderpath,4))
mkdir yol+SUBSTR(m.folderpath,4)
ENDIF
kaynak=RTRIM(m.folderpath)+"*.*"
hedef=yol+SUBSTR(RTRIM(m.folderpath),4)
COPY FILE (m.kaynak) TO (m.hedef)
ENDSCANcannot create file hatası veriyor. bakabilirseniz sevinirim.
locate
BROWSE
yol="d:\yedek\"
SET SAFETY OFF
SELECT myDirectories
SCAN
scatter MEMVAR memo
if not directory(addbs(m.yol)+SUBSTR(m.folderpath,4))
mkdir (addbs(m.yol)+SUBSTR(m.folderpath,4))
ENDIF
kaynak=ADDBS(RTRIM(m.folderpath))+"*.*"
hedef=ADDBS(addbs(m.yol)+SUBSTR(RTRIM(m.folderpath),4))
COPY FILE (m.kaynak) TO (FORCEPATH(m.kaynak,m.hedef))
ENDSCAN
Bu yalnızca dosyaları kopyeler.
MoveFile wınAPI ıle bır folderı baska yere taşıyabilirsiniz.
cevaplarınız için teşekkürler. program çalışıyor.
ama yine de movefile winapi için bir örnek görmek isterdim.
kolay gelsin iyi çalışmalar...
fox4um » Kodlama ve Komutlar » Klasör Kopyalama