mit File2PDF per Kontextmen� 'Senden an' Dateien in PDF

FreePDF_Multidoc � Sonstiges � VB-Programmbeispiele � mit File2PDF per Kontextmen� 'Senden an' Dateien in PDF

Themen-Einstellungen

Thema drucken

#1 | RE: mit File2PDF per Kontextmenü 'Senden an' Dateien in PDF datum

19.04.2009 00:29

Ahmed Martens

Informationen anzeigen

Beitr�ge:	401
Registriert seit:	16.03.2009

Achtung: Code ist veraltet und nur für die alte File2PDF-Version zu verwenden.

Bitte verwenden Sie den im nachfolgenden Beitrag beschrieben VBS-Code.

Hallo Leute,

hier habe ich einmal eine VB-Script erstellt, um Dateien einfach per Kontextmenü in PDF-Dateien umzuwandeln.

Wählt hierzu einfach die Dateien aus und wählt aus dem Kontextmenü den Befehl 'Senden an' und schon werden alle selektierten Dateien in PDF umgewandelt.

Und so geht es:

1. Erstellt Euch eine VB-Script-Datei mit folgendem Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 

 
Set WshShell = CreateObject (&quot;WScript.Shell&quot;)
set Ag = WScript.Arguments
 
dim myPath
dim myFile, tmpFile
dim i
 
myPath = getPath(Ag(0))
 
   for i= 0 to ag.count -1
		tmpFile = GetFile(Ag(i))
		myfile = myfile &amp; tmpFile &amp; &quot;+&quot;
   next
 
   myFile = left(myFile,len(myFile)-1)
   
&#039;Parameter:
&#039;myFile = Dateien die konvertiert werden sollen
&#039;myPath = Such-Pfad
&#039;0 = Unterornder = Nein
&#039;FreePDF_Multdoc = Drucer mit Multidoc-Funktion
&#039;0 = PDF &uuml;berschreiben = Nein
&#039;0 = PDF nach Konvertierung anzeigen = Nein
&#039;7 = &Uuml;bernahme aller Datumswerte
 
&#039;Suchpfad muss angebeben werden, damit Datei gefunden werden kann
   
Wshshell.run &quot;&quot;&quot;C:ProgrammeMicrosoft Visual StudioEigene ProgrammeFile2PDFFile2PDF.exe&quot;&quot;&quot; &amp; myFile &amp; &quot;;&quot; &amp; myPath &amp; &quot;;0;FreePDF_Multidoc;0;0;7&quot;
 

&#039;Hilfsfunktionen
Function GetPath(strFile)
	GetPath=left(Ag(0),InStrRev(strFile,&quot;&quot;,-1,1))
End Function
 
Function GetFile(strFile)
	GetFile=Right(strFile,(len(strFile)-InStrRev(strFile,&quot;&quot;,-1,1)))
End Function
 

 

speichert die Datei z. B. unter File2PDF.vbs ab.

2. Verschiebt jetzt einfach die VBS-Datei in folgenden Ordner (WinXP):

C:Dokumente und EinstellungenAhmed MartensSendTo

Und schon habt Ihr Euer Kontextmenü um einen neuen Eintrag erweitert.

3. Passt einfach noch den VB-Script-Code auf Eure Bedürfnissen an.

Viel Spaß.

Bei Fragen oder Problemen meldet Euch bitte.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#2 | RE: mit File2PDF per Kontextmenü 'Senden an' Dateien in PDF datum

28.02.2011 13:34

Ahmed Martens

Informationen anzeigen

Beitr�ge:	401
Registriert seit:	16.03.2009

Hallo Leute,

bei File2PDF haben sich ja die Parameteraufrufe komplett geändert.
Hier ist nun ein Beispiel für die neuen Parameter.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 

 
Set WshShell = CreateObject (&quot;WScript.Shell&quot;)
set Ag = WScript.Arguments
 
dim myPath
dim myFile, tmpFile
dim i
 
myPath = getPath(Ag(0))
 

   for i= 0 to ag.count -1
      tmpFile = GetFile(Ag(i))
      myfile = myfile &amp; tmpFile &amp; &quot;+&quot;
   next
 
   myFile = left(myFile,len(myFile)-1)
 
   
&#039;Parameter:
&#039;myFile = Dateien die konvertiert werden sollen
&#039;myPath = Such-Pfad
&#039;0 = Unterordner = Nein
&#039;FreePDF_Multdoc = Drucker mit Multidoc-Funktion
&#039;0 = PDF &sup3;berschreiben = Nein
&#039;0 = PDF nach Konvertierung anzeigen = Nein
&#039;7 = &Uuml;bernahme aller Datumswerte
 
&#039;Suchpfad muss angebeben werden, damit Datei gefunden werden kann
   
Wshshell.run &quot;&quot;&quot;C:ProgrammeFile2PDFFile2PDF.exe &quot;&quot;&quot; &amp; &quot;/Suchmuster=&quot; &amp; myFile &amp; &quot; /Suchpfad=&quot; &amp; myPath &amp; &quot; /Unterordner=0 /Show=0 /Overwrite=1 /Drucker=FreePDF_Multidoc /Filedate=7&quot;
 

&#039;Hilfsfunktionen
Function GetPath(strFile)
   GetPath=left(Ag(0),InStrRev(strFile,&quot;&quot;,-1,1))
End Function
 
Function GetFile(strFile)
   GetFile=Right(strFile,(len(strFile)-InStrRev(strFile,&quot;&quot;,-1,1)))
End Function
 

Alle Parameter sind auch auf der Webseite: File2PDF ausführlich beschrieben.

Bei Problemen oder Fragen bitte im entsprechenden Forum melden.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

#3 | RE: mit File2PDF per Kontextmenü 'Senden an' Dateien in PDF datum

30.06.2011 16:10

Ahmed Martens

Informationen anzeigen

Beitr�ge:	401
Registriert seit:	16.03.2009

Update auf neue Parameter /Einzel bzw. /Paket:

Hallo Leute,

im Programm File2PDF wurden die Parameter um /Einzel u. /Paket erweitert.

Hier habt Ihr nun ein Beispiel, wie man über das 'Senden an'-Kontextmenü ein Script ausführen kann, welches diese Parameter verwendet.

Im Script wird über eine Inputbox abgefragt, ob der Einzelmodus oder Paketmodus ausgeführt werden soll.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 

 
Set WshShell = CreateObject (&quot;WScript.Shell&quot;)
set Ag = WScript.Arguments
 
dim myPath
dim myFile, tmpFile
dim i
Dim bResult
 

&#039;myPath = getPath(Ag(0))    &#039;wird nur ben&ouml;tigt, wenn Sie einen Zielnamen im Paketmodus angeben wollen.
                            &#039;Der Dateiname wird dann &uuml;ber eine Inputbox abgefragt oder &uuml;ber die Hilfsfunktion GetFile(Ag(i)) ermittelt. 
                            &#039;Achtung: Achten Sie auf die Extension!
 

   for i= 0 to ag.count -1
         myfile = myfile &amp; Ag(i) &amp; &quot;+&quot;
   next
 
   myFile = left(myFile,len(myFile)-1)
 
  bResult=Inputbox(&quot;W&auml;hlen Sie bitte, ob Sie die Dateien einzeln (Standard=0) oder als Paket (=1) konvertieren m&ouml;chten.&quot;,&quot;Konvertierung Dateien&quot;,&quot;0&quot;)
  
  
&#039;Parameter:
&#039;myFile = Dateien die konvertiert werden sollen
&#039;myPath = Such-Pfad
&#039;0 = Unterornder = Nein
&#039;FreePDF_Multdoc = Drucer mit Multidoc-Funktion
&#039;0 = PDF &uuml;berschreiben = Nein
&#039;0 = PDF nach Konvertierung anzeigen = Nein
&#039;7 = &Uuml;bernahme aller Datumswerte
 
&#039;Suchpfad muss angebeben werden, damit Datei gefunden werden kann
   
If bResult = 0 then   
	Wshshell.run &quot;&quot;&quot;\server2010kanzleiprogrammeSOFTWAREFile2PDFFile2PDF.exe &quot;&quot;&quot; &amp; &quot;/Einzel=&quot; &amp; myFile &amp; &quot; /Show=0 /Overwrite=1 /Drucker=FreePDF_Multidoc /Filedate=7&quot;
ElseIf bResult = 1 then
	Wshshell.run &quot;&quot;&quot;\server2010kanzleiprogrammeSOFTWAREFile2PDFFile2PDF.exe &quot;&quot;&quot; &amp; &quot;/Paket=&quot; &amp; myFile &amp; &quot; /Show=0 /Overwrite=1 /Drucker=FreePDF_Multidoc /Filedate=7&quot;
Else
	Msgbox &quot;Sie haben eine falsche Auswahl getroffen. Die Konvertierung wird abgebrochen.&quot;, vbCritical
End if
 
&#039;Hilfsfunktionen kann verwendet werden, um den Pfad f&uuml;r den Zielnamen aus der zu konvertierende auszulesen.
Function GetPath(strFile)
   GetPath=left(Ag(0),InStrRev(strFile,&quot;&quot;,-1,1))
End Function
 

&#039;Hilfsfunktion kann verwendet werden, um z. B. den Dateinamen auszulesen und damit den Zielnamen (/Zielname=...) zu generieren.
Function GetFile(strFile)
   GetFile=Right(strFile,(len(strFile)-InStrRev(strFile,&quot;&quot;,-1,1)))
End Function
 

 

Viel Spaß.
Den Code bitte ggf. an Eure Einstellung anpassen.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

Alles rund um FreePDF und andere Tools