جستجو و کپی

[shahin0]

با سلام
من فرمانی احتیاج دارم که درایوهای سیستم را جستجو و تمامی فایلهای مثلا با پسوند txt را کپی کنه تو یه درایو بخصوص (memory ) .

اگه راهنمایی کنید واقا ممنون میشم.

[AmirAmiri]

با سلام
من فرمانی احتیاج دارم که درایوهای سیستم را جستجو و تمامی فایلهای مثلا با پسوند txt را کپی کنه تو یه درایو بخصوص (memory ) .

اگه راهنمایی کنید واقا ممنون میشم.
همه این کارا فقط با یه دستور انجام بشه؟
ببین دوست من با استتفاده از دستور Dir میشه یه کارایی کرد مثلا نام فایل و مسیر پوشه هایی رو که در پوشه جاری موجود اند رو به دست آور اما چیزی که شما میخواید کمی کد نویسی داره
در ضمن یکی از توابع API تا جدودی میتونه عمله جستجو رو انجام بده که الان حضوره ذهن ندارم اما سعی میکنم براتون پیداش کنم.
خلاصه... اگه بخوای با همون DIR این کارو انجام بدی باید کدی بنویسی که تک تکه پ.شه هارو سرچ کنه و هر جایی که به یک فایل برخورد بررسی کنه ببینه که نوعش چیه و اگه داخل اون پوشه پوشه هایه دیگه ای بودن اونا رو هم تک تک جستجو کنه که ایکار خیلی سخته و وقتگیره اما با همون تابع API میشه تا حدودی کارا رو آسون کرد. اگه پیداش کنم حتما واستون قرارش میدم.
موفق باشی...

[shahin0]

با سلام
دوست عزیز اون تابعی که گفتین هنوز نتونستین پیدا کنین .

[اوبالیت به بو]

در ضمن یکی از توابع API تا جدودی میتونه عمله جستجو رو انجام بده که الان حضوره ذهن ندارم اما سعی میکنم براتون پیداش کنم.

فكر مي كنم اين Module باشه:

Dim fi As String, Pa As String
Declare Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA) As Long
Declare Function FindNextFile Lib "kernel32" Alias _
"FindNextFileA" (ByVal hFindFile As Long, _
lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function GetFileAttributes Lib "kernel32" Alias _
"GetFileAttributesA" (ByVal lpFileName As String) As Long
Declare Function FindClose Lib "kernel32" (ByVal hFindFile _
As Long) As Long
Public Const MAX_PATH = 260
Public Const MAXDWORD = &HFFFF
Public Const INVALID_HANDLE_VALUE = -1
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Type FS
FNN As String
Pathh As String
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Public Function StripNulls(OriginalStr As String) As String
If (InStr(OriginalStr, Chr(0)) > 0) Then
OriginalStr = Left(OriginalStr, _
InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

Function FindFilesAPI(path As String, SearchStr As String, _
FileCount As Integer, DirCount As Integer)
Dim FileName As String ' Walking filename variable...
Dim DirName As String ' SubDirectory Name
Dim dirNames() As String ' Buffer for directory name entries
Dim nDir As Integer ' Number of directories in this path
Dim i As Integer ' For-loop counter...
Dim hSearch As Long ' Search Handle
Dim WFD As WIN32_FIND_DATA
Dim Cont As Integer
If Right(path, 1) <> "" Then path = path & ""
' Search for subdirectories.
nDir = 0
ReDim dirNames(nDir)
Cont = True
hSearch = FindFirstFile(path & "*", WFD)
If hSearch <> INVALID_HANDLE_VALUE Then
Do While Cont
DirName = StripNulls(WFD.cFileName)
' Ignore the current and encompassing directories.
If (DirName <> ".") And (DirName <> "..") Then
' Check for directory with bitwise comparison.
If GetFileAttributes(path & DirName) And _
FILE_ATTRIBUTE_DIRECTORY Then
dirNames(nDir) = DirName
DirCount = DirCount + 1
nDir = nDir + 1
ReDim Preserve dirNames(nDir)
End If
End If
Cont = FindNextFile(hSearch, WFD) 'Get next subdirectory.
Loop
Cont = FindClose(hSearch)
End If
' Walk through this directory and sum file sizes.
hSearch = FindFirstFile(path & SearchStr, WFD)
Cont = True
If hSearch <> INVALID_HANDLE_VALUE Then
While Cont
FileName = StripNulls(WFD.cFileName)
If (FileName <> ".") And (FileName <> "..") Then
FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * _
MAXDWORD) + WFD.nFileSizeLow
FileCount = FileCount + 1
fi = FileName
Pa = path
End If
Cont = FindNextFile(hSearch, WFD) ' Get next file
Wend
Cont = FindClose(hSearch)
End If
' If there are sub-directories...
If nDir > 0 Then
' Recursively walk into them...
For i = 0 To nDir - 1
FindFilesAPI = FindFilesAPI + FindFilesAPI(path & _
dirNames(i) & "", SearchStr, FileCount, DirCount)
Next i
End If
End Function


Function search(p As String, FN As String) As FS
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
Screen.MousePointer = vbHourglass
SearchPath = p
FindStr = FN
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
Screen.MousePointer = vbDefault
search.FNN = fi
search.Pathh = Pa
End Function

[ابوذر محمودی]

فکر می کنم این به دردتون بخوره همون کاری رو می کنه که شما می خواین .
اینو من واسه یه کار تخریبی درست کردم .:لبخند:
این پیش فرض فایل txt رو جستجو می کنه اگه بخواین فایلهای دیگه رو پیدا کنه باید pattern شئ file رو به همون چیزی که می خوای تغییر بدی.
اینم لینکش :
Search & copy (http://abouzarmahmoudi.parsaspace.com/Search%20&%20copy.rar)
خودت یه کم تغییرش بده دیگه .
در ضمن تو همین سایت هم می تونی موارد مشابه رو پیدا کنی .
موفق باشی

[ابوذر محمودی]

راستی این برنامه فقط درایوی که شما انتخاب می کنین رو سرچ می کنه .
اگه می خواین همه رو جستجو کنه باید یه حلقه کوچولو بهش اضافه کنید که وقتی کار جستجوی یک درایو تموم شد درایو دیگه رو جستجو کنه .

[مهران رسا]

به لینک زیر هم یک سری بزنید بد نیست ...

http://gksoft.persiangig.com/PICMSH.JPG

http://barnamenevis.org/forum/showpost.php?p=517358&postcount=211

[ابوذر محمودی]

آره منظور من هم از موارد مشابه همین بود . ولی نمی دونستم کجاست .

اگه کسی می تونه یه کاری بکنه که برنامه تو زمان جستجو هنگ نکنه بسم الله . آخه موقع اجرا یه چند ثانیه ای طول می کشه که درایو ها جستجو بشن . همین موجب می شه که برنامه واسه مدت کوتاهی مشغول باشه.