Mehmet Posted January 16, 2012 Share Posted January 16, 2012 (edited) [spoiler][img]http://i.imgur.com/XcmFz.jpg[/img][img]http://i.imgur.com/Wffee.jpg[/img][/spoiler] resimdede görüldüğü gibi karışık klasör isimleri var ve içerisinde farklı uzantılı dosyalar. içerisinden kopyalayıp çıkaramazmıyız .exe .dll .txt .sys .cat .inf .tag .bin .nvu bu uzantıdaki dosyaları veya tüm uzantılar içinde olabilir Edited January 16, 2012 by MeHMeTBeN Quote Link to comment Share on other sites More sharing options...
asmazh Posted January 17, 2012 Share Posted January 17, 2012 (edited) Ne demek istediğini tam anlayamadım. Şimdi o klasörün içindeki dosyaların hepsini kopyalamak mı istiyorsun. Nereye, nasıl kopyalayacaksın? Biraz daha açığa vur. Sadece klasörün içindeki dosyaları mı kopyalamak istiyorsun yoksa topyekün mü? Kopyalamak kolay: DirCopy() Edited January 17, 2012 by asmazh Quote Link to comment Share on other sites More sharing options...
g.a Posted January 17, 2012 Share Posted January 17, 2012 [b]Hepsi bir klasörde mi olacak exeler bir klasörde infler bir yerde mi?[/b] Quote Link to comment Share on other sites More sharing options...
SimpsoN_Bart Posted January 17, 2012 Share Posted January 17, 2012 [font="Tahoma"]İsteğin uzantıları sıralayıp kopyalatabilirsin.Stringleri ve[size=2]FileFindNext,[/size] array fonksiyonu konularını biraz araştır.[/font] Quote Link to comment Share on other sites More sharing options...
Mehmet Posted January 17, 2012 Author Share Posted January 17, 2012 klasörlerin içerisindeki aşağıda belirtiğim dosya uzantıların hepsini tek bir klasöre kopyalatmak .exe .dll .txt .sys .cat .inf .tag .bin .nvu Quote Link to comment Share on other sites More sharing options...
asmazh Posted January 19, 2012 Share Posted January 19, 2012 (edited) [code]$sDir = "C:\Documents and Settings\Kullanıcı\Belgelerim\Downloads" _FileListCopy($sDir, "*", "D:\Yeni Klasör") Func _FileListCopy($sPath, $sFilter = "*", $CopyDir = @DesktopDir) $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing backslash If Not FileExists($sPath) Then Return SetError(1, 1, "") $hSearch = FileFindFirstFile($sPath & $sFilter) If @error Then Return SetError(4, 4, "") While 1 $sFile = FileFindNextFile($hSearch) If @error Then ExitLoop If @extended Then _FileListCopy($sPath & "\" & $sFile , "*", "D:\Yeni Klasör") Else FileCopy($sPath & $sFile, $CopyDir & "\" & $sFile, 1) EndIf WEnd EndFunc ;==>_FileListCopy [/code] Düzelttim Buyur kardeş, yardım klasörünü biraz kurcala! Edited January 19, 2012 by asmazh Quote Link to comment Share on other sites More sharing options...
blackman12 Posted January 19, 2012 Share Posted January 19, 2012 asmazh, güzel ama senin fonksiyonda sadece o dizinde bulunan dosyalar ayıklanır, klasör içindeki klasörleri de ayrıştırmak için şöyle bir fonk kullan: [code]http://www.tnctr.com/topic/25559-yleri-duzey-autoit-oernekleri/page__view__findpost__p__726426[/code] Quote Link to comment Share on other sites More sharing options...
asmazh Posted January 19, 2012 Share Posted January 19, 2012 (edited) Hocam biraz acele oldu unutmuşum şunları eklemeyi: If @extended Then ContinueLoop ContineLoop yerine başa atıp $sPath&$sFile ile devam etmem lazımdı. Edited January 19, 2012 by asmazh Quote Link to comment Share on other sites More sharing options...
Mehmet Posted January 19, 2012 Author Share Posted January 19, 2012 (edited) oldu teşekkürler blackman12 asmazh driverpatc slotion içerisindeki dosyaların tümünü kopyalamam gerekiyordu tektek zor oluyor bu örnekle çokdaha güzel şeyler yapılabilir tekrardan teşekkürler Edited January 19, 2012 by MeHMeTBeN 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.