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
GELÖST

Mit VBS nach Dateien suchen und mit Word auflisten - immer zu viele Spalten am Ende

Frage Entwicklung

Mitglied: TsukiSan

TsukiSan (Level 2) - Jetzt verbinden

28.06.2009, aktualisiert 18:58 Uhr, 7166 Aufrufe, 2 Kommentare

Hallo Scripter,

irgendwie finde ich nicht das Problem.
Mit unten aufgeführten Code möchte ich einfach nur nach Dateien auf einer Partition suchen und diese
auflisten.
Das funktioniert auch bestens, aber am Ende des erstellten Dokuments ist
1) bei einer gefundenen Datei eine Spalte zu viel
2) bei mehr als einer gefundenen Datei zwei Spalten zu viel.

Diese sind leer und "nerven"

Schaut euch bitte mal diesen Script für VBS an. Vielleicht findet ihr den Fehler ja.

01.
Dim Filter , X 
02.
 
03.
Set objWord = CreateObject("Word.Application") 
04.
Set objDoc = objWord.Documents.Add() 
05.
Set objRange = objDoc.Range() 
06.
objDoc.Tables.Add objRange,1,1 
07.
Set objTable = objDoc.Tables(1) 
08.
 
09.
Filter = inputbox("Bitte geben Sie den Dateifilter ein","Mit Word Dateien suchen und auflisten","*.Test") 
10.
msgbox "Befehl wird ausgeführt! Bitte warten!",,"Mit Word...." 
11.
objWord.FileSearch.FileName = Filter 
12.
objWord.FileSearch.LookIn = "D:\" 
13.
objWord.FileSearch.SearchSubfolders = True 
14.
objWord.FileSearch.Execute 
15.
 
16.
objWord.Visible = True 
17.
 
18.
For Each objFile in objWord.FileSearch.FoundFiles	 
19.
	if not objFile = "" then objTable.Rows.Add() 
20.
	objTable.Cell(x, 1).Range.text = objFile 
21.
    	if not objFile = "" then x = x + 1 
22.
	 
23.
Next 
24.
 
25.
msgbox "Befehl ausgeführt!Es wurden " & x & " Dateien gefunden und aufgelistet.",,"Mit Word...." 
26.
 
27.
Set objword = nothing 
28.
Set objDoc = nothing 
29.
Set objRange = nothing 
30.
Set objTable = nothing

Danke euch, für die "unnötige" Zeit, mal über diesen Script zu schauen.

Tsuki
Mitglied: bastla
28.06.2009 um 21:36 Uhr
Hallo TsukiSan!

Versuch es so (dann wird auch die erste gefundene Datei in der Liste aufscheinen):
01.
Dim Filter , X 
02.
 
03.
Set objWord = CreateObject("Word.Application") 
04.
Set objDoc = objWord.Documents.Add() 
05.
Set objRange = objDoc.Range() 
06.
 
07.
Filter = inputbox("Bitte geben Sie den Dateifilter ein","Mit Word Dateien suchen und auflisten","*.Test") 
08.
msgbox "Befehl wird ausgeführt! Bitte warten!",,"Mit Word...." 
09.
objWord.FileSearch.FileName = Filter 
10.
objWord.FileSearch.LookIn = "D:\" 
11.
objWord.FileSearch.SearchSubfolders = True 
12.
objWord.FileSearch.Execute 
13.
 
14.
Found = objWord.FileSearch.FoundFiles.Count 
15.
objDoc.Tables.Add objRange,Found,1 
16.
Set objTable = objDoc.Tables(1) 
17.
 
18.
objWord.Visible = True 
19.
For Each objFile in objWord.FileSearch.FoundFiles	 
20.
    if not objFile = "" then 
21.
            x = x + 1 
22.
            objTable.Cell(x, 1).Range.text = objFile 
23.
	end if 
24.
Next 
25.
 
26.
msgbox "Befehl ausgeführt!Es wurden " & x & " Dateien gefunden und aufgelistet.",,"Mit Word...." 
27.
 
28.
Set objword = nothing 
29.
Set objDoc = nothing 
30.
Set objRange = nothing 
31.
Set objTable = nothing
Alternativ könntest Du in Deinem bisherigen Code einfach die Zeilen 17 bis 23 ändern auf:
01.
Neu = False 
02.
For Each objFile in objWord.FileSearch.FoundFiles	 
03.
	if not objFile = "" then 
04.
           x = x + 1 
05.
           If Neu Then objTable.Rows.Add() 
06.
           objTable.Cell(x, 1).Range.text = objFile 
07.
           Neu = True 
08.
	end if 
09.
Next
Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
29.06.2009 um 03:03 Uhr
Hallo bastla,

danke, so geht's! Mit dem Hinzufügen von der Variable "Neu" in meinen Code - so wie du beschrieben hast - ist es ausreichend.
Nur mag das VBS da "End If" nicht. Hab ich entfügt und schon läuft's.

Vielen Dank und mir ist geholfen

Gruß

Tsuki
Bitte warten ..
Ähnliche Inhalte
Microsoft
Im ordner nach dateien aus excel liste suchen (2)

Frage von tioloco zum Thema Microsoft ...

Batch & Shell
Dateien mit Liste suchen (16)

Frage von 132351 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(5)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (19)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Batch & Shell
gelöst Batch um Benutzer aus Sitzung abzumelden (15)

Frage von zeroblue2005 zum Thema Batch & Shell ...