Problème de déplacement de fichier?

Question

Utilisation de VB6

Je souhaite déplacer les fichiers vers un autre dossier.

Code.

Dim fso As FileSystemObject 
fso.MoveFile (txtsourcedatabasefile & "\" & "1.txt"), App.Path & "\Uploaded\" 

txtsourcedatabasefile = "C:"

code ci-dessus ne fonctionne pas, il affiche l'erreur comme variable objet ou variable bloc non définie.

Comment modifier mon code.

besoin Code VB6 Aide

Answer 1

fso n'est pas initialisées à quoi que ce soit, essayez de remplacer

Dim fso As FileSystemObject 

avec:

Dim fso As New Scripting.FileSystemObject 

Answer 2

Juste quelques questions:

1. Quelle est fso position?
2. Quelle est la valeur de txtsourcedatabasefile?

C'est, je pense, où votre problème réside. Je regarderais fso moi-même pour m'assurer que vous l'avez défini.

Mise à jour:

Dans vos mises à jour de question, votre code:

Dim fso As FileSystemObject 

crée l'objet, mais vous n'initialisez pas vraiment à quoi que ce soit. Vous devez faire:

Dim fso As FileSystemObject 
Set fso = New FileSystemObject 

Ceci est en fait préférable dans la grande majorité des cas depuis la quasi équivalent:

Dim fso As New FileSystemObject 

crée un objet auto-instanciation, ce qui signifie à chaque fois que vous l'utilisez, il va vérifier pour voir s'il doit être créé.

Cela fait un segment de code comme:

Dim fso As New FileSystemObject 
fso.DoThis() 
fso.DoThat() 
if fso.EverythingDone then 
    fso.Shutdown() 
end if 

cher car il vérifiera fso quatre fois pour voir si elle existe (et créer uniquement la première fois). Il est plus efficace de le créer manuellement une fois.