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, 7179 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
Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Komplett neues Netzwerk, Ubiquiti WLAN, Router, Switch (16)

Frage von Freak-On-Silicon zum Thema LAN, WAN, Wireless ...

CMS
Lokales Wordpress im LAN - wie aufsetzen? (15)

Frage von Static zum Thema CMS ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...

RedHat, CentOS, Fedora
Fedora, RedHat, Centos: DNS-Search Domain setzen (13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...