Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichnis verschieben
Autor: Izo
Datum: 29.05.12 16:19
Das ist der erste Teil ------   Option Explicit 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 Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Const MAX_PATH As Long = 259& 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 Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20& Const FILE_ATTRIBUTE_COMPRESSED As Long = &H800& Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10& Const FILE_ATTRIBUTE_HIDDEN As Long = &H2& Const FILE_ATTRIBUTE_NORMAL As Long = &H80& Const FILE_ATTRIBUTE_READONLY As Long = &H1& Const FILE_ATTRIBUTE_SYSTEM As Long = &H4& Const FILE_ATTRIBUTE_TEMPORARY As Long = &H100& Private Sub Dir1_Change() Text1.Text = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Form_Load() Text1.Text = Dir1.Path Text2.Text = "*.*" End Sub Private Sub Command1_Click() Dim Files() As String Dim X As Long Dim Such As String Dim DatCnt As Integer, DirCnt As Integer Dim Max As Long ' Ein Einfaches Suchmuster erstellen Such = Trim$(UCase$(Text2.Text)) If Left$(Such, 1) = "*" Then Such = Right$(Such, Len(Such) - InStr(Such, ".")) ReDim Files(0 To 0) ' Suchen MousePointer = 11 DoEvents Max = GetAllFiles(LCase(Text1.Text), Such, Files, _ (Check1.Value = Checked)) MousePointer = 0 DoEvents List1.Clear ' Die Ergebnisse auflisten List1.Visible = False For X = 0 To Max - 1 List1.AddItem Files(X) If Left$(Files(X), 2) = ">>" Then DirCnt = DirCnt + 1 Else DatCnt = DatCnt + 1 End If Next X List1.Visible = True Label5.Caption = DirCnt Label6.Caption = DatCnt End Sub

Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichnis v...	1.938	Izo	23.05.12 10:50
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.406	Manfred X	23.05.12 12:54
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.320	Izo	23.05.12 13:22
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.320	Izo	23.05.12 15:18
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.329	Manfred X	23.05.12 17:32
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.235	Izo	29.05.12 15:17
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.268	Izo	29.05.12 16:19
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.285	Izo	29.05.12 16:21
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.316	Manfred X	29.05.12 18:16
Re: Vb6: Dateien aus Listbox in ein beliebiges Zielverzeichn...	1.222	Izo	29.05.12 18:40

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen