Ανανέωση ιστοσελίδας

[Meteora]

Καλησπέρα σε όλους !
Ασχολούμαι με μια εφαρμογή η οποία θέλω να φτιάχνει αρχείο *.txt, τοποθετώντας εκεί τα περιεχόμενα ενός ερωτήματος της εφαρμογής. Κάνω χρήση της πρότασης :

DoCmd.OutputTo acOutputQuery, "ΓΟΝΕΙΣΤΕΚΝΑ", acFormatTXT, "C:\ΦΑΚΕΛΟΣ\Family.txt"

Το αρχείο δημιουργείται !
Όμως έχω δυο ερωτήματα -σχετικά με το ζήτημα που σας αναφέρω:

• Πως θα φτιαχτεί αυτό το αρχείο στην επιφάνεια εργασίας, ανεξάρτητα απο τον υπολογιστή στον οποίο η εφαρμογή θα 'Τρέξει' ; (Στον δικό μου υπολογιστή αν δώσω διαδρομή "C:\Users\Nikos\Deskop", έχω την επιθυμητή λύση). Και το άλλο ερώτημα,
• Πως απο αρχείο τύπου *.txt -σαν αυτό που έφτιαξα - μπορώ να μεταφέρω σε πίνακα τα περιεχόμενά του

Σας ευχαριστώ / Νίκος Δ.

[Tasos]

Καλησπέρα Νίκο!
Ένας τρόπος είναι αυτός:

Sub test()
Dim TextFilePath$
TextFilePath = Replace(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Family.txt", "\\", "\")
DoCmd.OutputTo acOutputQuery, "ΓΟΝΕΙΣΤΕΚΝΑ", acFormatTXT, TextFilePath
' Άλλες διαδρομές Φακέλων του συστήματος:
'    Desktop
'    AllUsersDesktop
'    AllUsersStartMenu
'    AllUsersPrograms
'    AllUsersStartup
'    Desktop
'    Favorites
'    Fonts
'    MyDocuments
'    NetHood
'    PrintHood
'    Programs
'    Recent
'    SendTo
'    StartMenu
'    Startup
'    Templates
End Sub

Μπορούμε ακόμα να χρησιμοποιήσουμε:

TextFilePath = Replace(Environ("USERPROFILE") & "\Desktop\Family.txt", "\\", "\")

όπου Environ() = VBA.Interaction.Environ()

Άλλες σταθερές για την Environ():
ALLUSERSPROFILE
APPDATA
COMPUTERNAME
HOMEDRIVE
HOMEPATH
PATH
PROGRAMFILES
SYSTEMDRIVE
SYSTEMROOT
TEMP
TMP
USERNAME
USERPROFILE
WINDIR

Φιλικά

Τάσος

[Meteora]

Καλημέρα !
Τάσο, η απάντησή σου καταδεικνύει οτι το ερώτημά μου ήταν απο τα 'δύσκολα'. Μόνος μου δεν θα μπορούσα να πλησιάσω στην επίλυσή του...
Σε ευχαριστώ για τη λύση που με πρόσφερες. Είναι σημαντική για μένα...
Φιλικά / Νίκος Δ.