[AS] Liste aus Dateien in einem Ordner erstellen (Alias)

[Mitglied 26876]

#Hallo Leute!

Ich brauche dringend Eure Hilfe! Ich brauche ein Scriptteil der mir eine Liste der Files in einem Ordner zurückliefert. Sodass ich einfach per

repeat with _file in _fileList

jede Datei durch URL Access Scripting hochladen kann.

Ist das irgendwie möglich? Ich scheitere vollkommen daran. Weiß einfach nicht wie ich das anstellen soll.

Ich will nunmal später nicht den Ordner hochladen sondern nur die darin enthaltenen Dateien hochladen.


Bitte um dringende Hilfe,

Jan!

Edit:

Hier einmal der Upload Handler:

on upload(server_name, user_name, user_password, file_list, LogScript)
	
	set ftpURL to "ftp://" & user_name & ":" & user_password & "@" & server_name
	
	log_event("Liste der Files: " & file_list) of LogScript
	
	tell application "URL Access Scripting"
		activate
		
		log_event("Aktuelles File: " & file_list) of LogScript
		repeat with _file in file_list
			try
				
				upload _file to ftpURL with progress without binhexing
				
			on error what
				log_event("Hochladen des aktullen Files: " & _file & " schlug fehl" & what) of LogScript
				display dialog "Hochladen des aktullen Files: " & _file & " schlug fehl" & what
			end try
		end repeat
	end tell
	
	
	tell application "URL Access Scripting" to quit
end upload

 

[LittlePixel]

Hallo,

tell application "Finder" to set allFiles to every file of (choose folder)

Viele Grüße

 

[Mitglied 26876]

Oh!


Danke für die schnelle Antwort! Werde es heute Nachmittag ausprobieren… muss jetzt erstmal leider weg.

Aber wenn Du das so schreibst klingt das so logisch, dass ich auch darauf kommen hätte müssen. :-D


Vielen Dank und einen schönen Tag,


Jan!

 

[Mitglied 26876]

Also Fazit: Es geht noch nicht. Liegt aber wahrscheinlich daran, dass ich das nicht so vernünftig hin bekomme…

Also hier mal den Fehler:
(siehe Bild im Anhang)

Und das Script was ich da gebastelt habe sieht so aus:

tell application "Finder" to set allFiles to every file of (choose folder)

set server_name to text returned of (display dialog "Bitte die Adresse des FTP-Servers eingeben! Ohne ftp oder http davor!" default answer "example.net")
set server_name_http to text returned of (display dialog "Bitte den Link zum Webserver angeben! MIT http:// und einem / beenden!" default answer "http://example.net/")
set user_name to text returned of (display dialog "Bitte den FTP-Zugangsnamen für den Server " & server_name & " eingeben." default answer "")
set user_password to text returned of (display dialog "Bitte das FTP-Zugangspasswort für " & user_name & " auf dem FTP-Server " & server_name & " eingeben." default answer "" with hidden answer)

upload(server_name, user_name, user_password, allFiles)

on upload(server_name, user_name, user_password, file_list)
	
	set ftpURL to "ftp://" & user_name & ":" & user_password & "@" & server_name
	
	
	tell application "URL Access Scripting"
		activate
		
		repeat with _file in file_list
			try
				
				upload file_list to ftpURL with progress without binhexing
				
			on error what
				display dialog "Hochladen des aktullen Files: " & file_list & " schlug fehl" & what
			end try
		end repeat
	end tell
	
	
	tell application "URL Access Scripting" to quit
end upload

 

[Mitglied 26876]

Ich hab´s!

So Leute,

da es doch manchmal hilft zu lesen statt zu posten habe ich dann mal gelesen und den Fehler gefunden in meinem Script.

Danke für Eure Mithilfe (und nein da ist keine Ironie hinter )

Hier das lauffähige Ergebnis:

tell application "Finder" to set allFiles to (every file of (choose folder))

set server_name to text returned of (display dialog "Bitte die Adresse des FTP-Servers eingeben! Ohne ftp oder http davor!" default answer "example.net")
set server_name_http to text returned of (display dialog "Bitte den Link zum Webserver angeben! MIT http:// und einem / beenden!" default answer "http://eusers.eu.funpic.de/")
set user_name to text returned of (display dialog "Bitte den FTP-Zugangsnamen für den Server " & server_name & " eingeben." default answer "")
set user_password to text returned of (display dialog "Bitte das FTP-Zugangspasswort für " & user_name & " auf dem FTP-Server " & server_name & " eingeben." default answer "" with hidden answer)

upload(server_name, user_name, user_password, allFiles)

on upload(server_name, user_name, user_password, file_list)
	
	set ftpURL to "ftp://" & user_name & ":" & user_password & "@" & server_name
	
	
	tell application "URL Access Scripting"
		activate
		
		repeat with _file in file_list
			try
				
				upload _file as alias to ftpURL with progress without binhexing
				
			on error what
				display dialog "Hochladen des aktullen Files: " & file_list & " schlug fehl" & what
			end try
		end repeat
	end tell
	
	
	tell application "URL Access Scripting" to quit
end upload