수다닷컴

Private Declare Function FindFirstFile Lib kernel32 Alias FindFirstFileA (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib kernel32 Alias FindNextFileA (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib kernel32 (ByVal hFindFile As Long) As Long

Private Const INVALID_HANDLE_VALUE = -1 Private Const MAX_PATH = 260

Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type

Private 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 FileSearch(Path As String) As String Dim FindData As WIN32_FIND_DATA, hFileHandle As Long, res As Long, File As String, Folder As String hFileHandle = FindFirstFile(Path, FindData) If hFileHandle = INVALID_HANDLE_VALUE Then FileSearch = Search Error: Exit Function

Do Select Case FindData.dwFileAttributes And vbDirectory Case 0 File = File & Replace$(Trim$(FindData.cFileName), Chr(0), ) & / Case Else Folder = Folder & Replace$(Trim$(FindData.cFileName), Chr(0), ) & / End Select FindData.cFileName = res = FindNextFile(hFileHandle, FindData) Loop While res

FindClose hFileHandle FileSearch = Folder & | & File End Function

모듈을추가햇는데요.
특정파일만 착고싶습니다.
파일1개만요.
제가만든 shellfile.exe라는 파일경로를
Text1에 띠우게하고싶습니다.
찾아보면 다 리스트에대량으로 나오는데...
그렇게하는게아니구요.
지정한 한 파일 위에 exe같은어요 ㅎㅎ
부탁드립니다.
정중히 소스등 부탁드립니다

신청하기