|
| Autor |
Nachricht |
_code__
Poster
Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
|
ordnerinhalt ermitteln & löschen
Verfasst am: 18.12.2007, 18:52 |
|
|
hi, wie der threadtitel schon sagt möchte ich den Inhalt eines ordners ermitteln und dann alle *.exe files daraus löschen.
ich hab schon gegoogelt und bin soweit gekommen das es mit einer "Dir()" Funktion geht. weiter komme ich da aber irgendwie nicht...
wär nett wenn ihr helfen könntet 
mfg & thx
Kombo
 |
|
| |
|
 |
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 18.12.2007, 19:01 |
|
|
Wenn du einfach alle *.exe Dateien in einem Ordner löschen willst, kannst du "Kill" benutzen.
| Code: | Dim KillPfad as String
KillPfad = "C:\Programme\FuckinInternetExplorer\*.exe"
Kill KillPfad |
Kurz:
| Code: | | Kill "C:\Programme\FuckinInternetExplorer\*.exe" |
Aber ich arbeite in so Beispielen halt gern mit Variablen. =P
Das "*.exe" steht dabei für alle *.exe Dateien im Ordner. |
|
| |
|
|
_code__
Poster
Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
|
Verfasst am: 18.12.2007, 19:04 |
|
|
also das es mit "kill" geht wusste ich ^^
aber das es mit *.exe geht ist gut.. macht es um einiges leichter. Thx! 
ps:
diese üfadangaben kennt ihr doch sicher oder? => Environ$("windir")
gibt es da eine liste, wo alle/mehrere draufstehen?
mfg
Kombo
|
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 18.12.2007, 19:15 |
|
|
| Code: | MsgBox Environ("ComputerName") & vbCrLf & _
Environ("UserName") & vbCrLf & _
Environ("TEMP") & vbCrLf & _
Environ("windir") & vbCrLf & _
Environ("COMSPEC") & vbCrLf & _
Environ("SystemDrive") |
Messagebox mit:
PC-Name
PC-Benutzername
Pfad zu den Temps
Pfad zu "WINDOWS"
Pfad zur CMD
Welche Partition?
Falls es dich noch interessiert, den Ordnerinhalt in einer ListBox auszulesen.
Modul:
| Code: | Option Explicit
Private Declare Function SendMessageStr Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_DIR As Long = &H18D
Private Const DDL_ARCHIVE As Long = &H20
Private Const DDL_DIRECTORY As Long = &H10
Private Const DDL_DRIVES As Long = &H4000
Private Const DDL_EXCLUSIVE As Long = &H8000
Private Const DDL_HIDDEN As Long = &H2
Private Const DDL_READONLY As Long = &H1
Private Const DDL_READWRITE As Long = &H0
Private Const DDL_SYSTEM As Long = &H4
Public Function GetFilesFromFolderAPI( _
ByRef LBox As ListBox, _
ByVal Path As String, _
Optional ByVal Filter As String = "*.*") As Long
Dim Result As Long
Dim s As String
' Path und Filter zusammenführen
s = Path
If Right$(s, 1) <> "\" Then
s = s & "\"
End If
s = s & Filter
LBox.Clear
'abrufen
Result = SendMessageStr(LBox.hwnd, LB_DIR, DDL_READWRITE, s)
GetFilesFromFolderAPI = Result + 1
End Function |
CommandButton:
| Code: | Dim Pfad As String
Pfad = "C:\Windows"
If (GetFilesFromFolderAPI(Me.List1, Pfad, "*.ini") <> 0) Then
' Dateiliste wird geladen, wenn Datei vorhanden
End If |
Zuletzt bearbeitet von c0re_ am 18.12.2007, 19:18, insgesamt 2-mal bearbeitet |
|
| |
|
|
_code__
Poster
Anmeldedatum: 18.03.2007
Beiträge: 154
Wohnort: C:\Wohnort.dat
|
Verfasst am: 18.12.2007, 19:17 |
|
|
thx
braucht man ja immermal wieder... hehe^^
wenn noch wer welche hat, pls posten
Kombo
|
|
| |
|
|
Rausch_
Poster
Anmeldedatum: 03.11.2007
Beiträge: 164
|
Verfasst am: 18.12.2007, 20:53 |
|
|
mach doch einfach ne listbox und 1 button und dann:
| Code: |
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 32
List1.AddItem i & ". " & Environ(i)
Next
End Sub
|
das gibt dir alle aus
mfg |
|
| |
|
|
|
|
Registrieren
Login
