Habs so gelöst....
Habs so gelöst....
(noch nicht perfekt, aber es funz schon mal!)
ProTool Variablen:
file1 - file6 string 40 zeichen ohne strg.
file_aktuell, file_pattern, file_showdir string 40 zeichen ohne strg.
file_akfilenr int
Bild erstellen.
Beim laben vom Bild script "file_dateilistefuellen" mit
parametern: verzeichnis welches gezeigt werden soll:
"\windows" und pattern z.b. : "*.*"
dann 6 ausgabetextfelder anlegen für file1-file6
6 unsichbare buttons darüber welche file_selct aufrufen mit parameter
file1-file6 (je nach darunterliegendem feld!)
1 ausgabefeld für file_aktuell
button darüber mit file_launch als script
2 buttons noch zum vor und rückblättern:
scripte: file_nextfiles u. file_prevfiles.
So jetzt die Scripte:
file_dateilistefuellen
Code:
file_showdir = showdir
file_pattern = pattern
If Right(file_showdir,1) <> "\" Then file_showdir = file_showdir + "\"
Dim fle, tmp(6), nr
file_aktuell=""
file_akfilenr=1
file1="" : file2="" : file3="" : file4="" : file5="" : file6=""
Set fle = CreateObject("filectl.filesystem")
nr=nr+1
tmp(nr) = fle.dir(file_showdir + file_pattern)
While tmp(nr)<>"" And nr<6
nr=nr+1
tmp(nr)=fle.dir()
Wend
file1=tmp(1):file2=tmp(2):file3=tmp(3):file4=tmp(4):file5=tmp(5):file6=tmp(6)
Set fle=Nothing
file_nextfiles
Code:
Dim fle, tmp(6), nr, p
file_aktuell=""
If file6<>"" Then
file_akfilenr=file_akfilenr+1
End If
Set fle=CreateObject("filectl.filesystem")
nr=nr+1
tmp(1) = fle.dir(file_showdir + file_pattern)
While nr < (6*file_akfilenr)
tmp(1)=tmp(2): tmp(2)=tmp(3) : tmp(3)=tmp(4) : tmp(4)=tmp(5) : tmp(5)=tmp(6)
nr = nr+1
tmp(6) = fle.dir()
If tmp(6) = "" Then
file1=tmp(1):file2=tmp(2):file3=tmp(3):file4=tmp(4):file5=tmp(5):file6=tmp(6)
Set fle=Nothing
Exit Sub
End If
Wend
file1=tmp(1):file2=tmp(2):file3=tmp(3):file4=tmp(4):file5=tmp(5):file6=tmp(6)
Set fle=Nothing
file_prevfiles
Code:
Dim fle, tmp(6), nr, p
file_aktuell=""
file_akfilenr=file_akfilenr-1
If file_akfilenr<1 Then file_akfilenr=1
If file_akfilenr=1 Then
file_dateilistefuellen file_showdir, file_pattern
Else
Set fle=CreateObject("filectl.filesystem")
nr=nr+1
tmp(1) = fle.dir(file_showdir + file_pattern)
While nr < (6*file_akfilenr)
tmp(1)=tmp(2): tmp(2)=tmp(3) : tmp(3)=tmp(4) : tmp(4)=tmp(5) : tmp(5)=tmp(6)
nr = nr+1
tmp(6) = fle.dir()
If tmp(6) = "" Then
file1=tmp(1):file2=tmp(2):file3=tmp(3):file4=tmp(4):file5=tmp(5):file6=tmp(6)
Set fle=Nothing
Exit Sub
End If
Wend
file1=tmp(1):file2=tmp(2):file3=tmp(3):file4=tmp(4):file5=tmp(5):file6=tmp(6)
Set fle=Nothing
End If
file_select
Code:
file_aktuell = file_showdir + myfile
file_launch
Code:
If file_aktuell<>"" Then
Call PtFct.Internet_Explorer_starten(file_aktuell)
End If
vieleicht brauchts ja jm.