DSolve[-(E^(x/y[x])*x) + y[x]*Derivative[1][y][x] == 0,y[x],x]