Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Suche nach gedruckten Dateien

Frage Internet

Mitglied: Supiburki

Supiburki (Level 1) - Jetzt verbinden

11.12.2009 um 13:12 Uhr, 8579 Aufrufe, 3 Kommentare

Hallo, bin dankbar für Eure Hilfe.

Habe vor einiger Zeit ein Dokument (ppt) ausgedruckt, finde es aber nicht mehr auf dem Rechner. Die Vista-Suche bringt kein Ergebnis. Gibt es einen Speicher auf dem Rechner, der gedruckte Dokumente speichert? Nutze einen Konica Magicolor 2500. Hat der einen Speicher, auf den ich zugreifen kann?

Besten Dank vorab.

Burki
Mitglied: 60730
11.12.2009 um 13:18 Uhr
Hallo,

nein datt gibbet nüschdd...
(Außer jemand hat einen Printserver eingerichtet - der das macht) und wenn - ist das auch nur die gerenderte Druckdatei ....

Gruß
Bitte warten ..
Mitglied: Supiburki
11.12.2009 um 13:22 Uhr
Besten Dank für die flotte Antwort.

Gruß, Burki
Bitte warten ..
Mitglied: TsukiSan
11.12.2009 um 13:26 Uhr
lass doch mal
01.
Dim Pfadangabe, Ordner 
02.
Dim LogPfad 
03.
Dim FilterDatei 
04.
Dim Zaehler 
05.
 
06.
 
07.
Ordner = LCase(InputBox("Please insert the path (eg.: [C:\] or [All] -> for all Partitions)","...","C:\")) 
08.
If Not Right(Ordner,1) = "\" and Not Ordner = "all" then Ordner = Ordner & "\" 
09.
 
10.
FilterDatei = InputBox("Which file are you looking for?","...","FileName") 
11.
FilterDatei = Replace(FilterDatei , "*" , "") 
12.
 
13.
LogPfad = "C:\SearchFile_Result.txt" 
14.
Zaehler = 0 
15.
 
16.
set fs = createobject("Scripting.FileSystemObject") 
17.
 
18.
set DateiInfo = fs.CreateTextfile(LogPfad,True) 
19.
DateiInfo.close 
20.
 
21.
set DateiInfo = fs.opentextfile(LogPfad, 8) 
22.
 
23.
 
24.
If Ordner = "all" then 
25.
	AllesScannen 
26.
Else 
27.
	Listordner Ordner 
28.
End If 
29.
 
30.
 
31.
Sub AllesScannen() 
32.
	 
33.
	For i = 65 to 90	 
34.
		Ordner = CHR(I) & ":\" 
35.
		Wscript.Echo "Searching: " & Ordner & " for [" & Filterdatei & "]" 
36.
		Listordner Ordner 
37.
	next 
38.
 
39.
End Sub 
40.
 
41.
 
42.
Sub ListOrdner(ordner) 
43.
	On Error resume next 
44.
 
45.
	Set ordner = fs.getfolder(ordner) 
46.
 
47.
	For Each file In ordner.files 
48.
		Pfadangabe =file.path 
49.
		DateiNameTemp = Split(LCase(Pfadangabe) , LCase(FilterDatei)) 
50.
		If UBound(DateiNameTemp) > 0 then 
51.
			DateiInfo.writeline (Pfadangabe) 
52.
			Zaehler = Zaehler + 1 
53.
		End If 
54.
	Next 
55.
 
56.
	For Each Unterordner In Ordner.subfolders 
57.
		Pfadangabe = unterordner.path 
58.
		 
59.
		Listordner unterordner 
60.
	next 
61.
End Sub 
62.
 
63.
DateiInfo.close 
64.
 
65.
WScript.Echo Zaehler & " Hits. The Result is logged under: " & LogPfad & " abgespeichert. Open Logfile." 
66.
 
67.
set wshshell=createobject("wscript.shell") 
68.
wshshell.run(LogPfad), 3, true 
69.
 
70.
set wshshell= nothing 
71.
Set fs = nothing 
72.
set DateiInfo = nothing
laufen und suche damit nochmals nach deiner Datei auf deiner(n) Partition(en).
Die Windows-Suchfunktion "kackt" manchmal ab.

Gruss
Tsuki

Ps.: ist VBS !
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
XLSM Dateien ausschließlich von sicherem Speicherort genehmigen

Frage von ChrisIO zum Thema Microsoft Office ...

Windows Server
gelöst NTFS-Volume - Summe aller Dateien ist deutlich geringer als Volumegrösse (4)

Frage von Augenadler zum Thema Windows Server ...

Windows 10
gelöst Werden Dateien beim Ersetzen wirklich überschrieben? (3)

Frage von Nexder zum Thema Windows 10 ...

Windows 7
Dateien umbenennen Unterschiede in Win7 und XP (3)

Frage von mani55 zum Thema Windows 7 ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (11)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Windows Server
Probleme mit Client Software Zugriff auf Windows Server 2012 (8)

Frage von it-kolli zum Thema Windows Server ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...